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0x00 Introducción 


Batalla espacial es el primer programa que desarrollé en ensamblador para ZX Spectrum, 
quitándome de esta manera la espina que tenía clavada desde pequeño. Batalla espacial no es más 
que una prueba de los conocimientos adquiridos siguiendo el curso Curso de Ensamblador 780 de 


Compiler Software. 


En Batalla espacial los gráficos son de un carácter, se usan UDG (User-Defined Graphic) y el 
movimiento es carácter a carácter, por lo que las diferencias con respecto a PorompomPong son 
patentes. 


Batalla espacial hace uso de las interrupciones, cosa que en PorompomPong no hace, también hace 
un mayor uso de las rutinas de la ROM y al usar UDG y RST $10 para pintar, es necesario cambiar 
de canal para pintar en la parte superior de la pantalla, o en la línea de comandos. 


Herramientas necesarias 


+ Editor de texto, ya sea Notepad, Notepad++, Visual Studio Code o cualquier otro con el que 
os sintáis cómodos. 


+ Compilador de ensamblador PASMO: está disponible para Windows, Linux y Mac, y es 
compatible con Raspberry Pi OS, que es el sistema desde el que estoy redactando el presente 
tutorial. 


+ Emulador de ZX Spectrum: aquí tenéis varios para elegir como ZEsarUX, Fuse, Retro 
Virtual Machine, etc., dependiendo del sistema operativo que uséis. En mi caso vuelvo a 
optar por ZEsarUX. 


Con respecto a PASMO, recomiendo a los usuarios de Windows que incluyan la ruta del ejecutable 
en la variable de entorno Path. Aquí tenéis un vídeo que muestra como hacerlo en Windows 10. 


https: //www.youtube.com/watch?v=fyVROgbgEC 


Estructura del tutorial 


A diferencia de PorompomPong, Batalla espacial no se desarrolló con idea de realizar un tutorial, 
por lo que la estructura es distinta, no voy a ir desarrollando, haciendo y deshaciendo como hice en 
PorompomPong, en esta ocasión ya lo tengo terminado y ahora toca escribir “Cómo se hizo”, 
aunque si hay cambios en el código con respecto de lo que hay publicado. 


En lo primeros pasos vamos a definir la nave, la vamos a mover, luego vamos a abordar los 
enemigos y el disparo. Una vez realizado lo anterior, vamos a implementar la mecánica del juego, 
las colisiones, las puntuaciones, las vidas disponibles, etc. 


En los últimos pasos vamos a implementar el menú de inicio, la selección de controles, inicio y fin 
de partida, marcadores, los efectos de sonido y, en general, a decorar un poco el resultado final. 


Lo último será añadir una pantalla de carga, a ver que tal nos sale esta vez. 


Entorno de trabajo 


Esta vez no voy a trabajar bajo Windows, voy a usar el reciente regalo que me han hecho, lo que 
algunos llaman el Spectrum del siglo XX1, una Raspberry Pi 400. 


El emulador que voy a usar es ZEsarUX, el compilador PASMO y el editor Visual Studio Code, por 
lo que en este aspecto no cambio nada con respecto a PorompomPong. 


En esta ocasión voy a mostrar algo que no mostré en el tutorial anterior, la forma de depurar con 
ZEsarUX, cosa que espero que os sea de utilidad, aunque lo dejaremos para el final. 


El resultado final 


Batalla espacial es un sencillo juego mata marcianos, compatible con los modelos de ZX Spectrum 
16K, 48K, +2 y +3, manejable con teclado, joystick Sinclair y Kempstom, y que consta de treinta 
niveles. 


Decir que consta de treinta niveles quizá sea algo pretencioso, ya que la mecánica del juego no 
cambia, aunque lo que sí cambia son los enemigos, habiendo un total de treinta distintos, uno por 
Cada nivel. 


El movimiento de nuestra nave es horizontal, por lo que solo es necesario un gráfico, mientras que 
el movimiento de los enemigos es diagonal, siendo necesarios cuatro gráficos (arriba-derecha, 
arriba-izquierda, abajo-derecha, abajo-izquierda). El disparo de nuestra nave consta también de un 
solo gráfico, mientras que la explosión de la nave, cuando nos matan, consta de cuatro gráficos, con 
lo que haremos una pequeña animación cuando nos maten. 


Vamos a definir otros ocho gráficos para el marco de la pantalla, y un gráfico más en blanco para 
borrar gráficos impresos en pantalla. 


Conclusión 


Poco más se puede añadir, espero que este tutorial os sirva para aprender y sobre todo que os 
divierta. 


Gran parte de lo que vamos a ver en Batalla espacial lo expliqué en PorompomPong, motivo por el 
cual en ocasiones no pararé a explicar muchas instrucciones. 


En la próxima entrega empezamos definiendo los gráficos y practicando la conversión 
hexadecimal/binario. 


0x01 Definición de gráficos 


En este capítulo vamos a definir todos los gráficos que vamos a usar en Batalla espacial, 
aprovechando para practicar la conversión hexadecimal/binario, por lo que vamos a hacer nuestra 
primera práctica. 


Ya comenté en el capítulo anterior que estoy usando una Raspberry Pi 400, y eso me impone alguna 
limitación, como que no tengo disponible el programa que suelo usar para diseñar los gráficos para 
Z,X Spectrum, así que he hecho dos plantillas para usar con GIMP, y que simula el área de dibujo de 
ZX Paintbrush, que es el programa que uso en Windows. 


Las plantillas que he preparado son las siguientes: 
+. 8x8Template: para diseñar gráficos de 8x8 píxeles. 
+  256x192Template: tapiz con el tamaño de la pantalla del ZX Spectrum. 


Para batalla espacial vamos a usar 8x8Template, os pondré la imagen de los gráficos, los códigos 
hexadecimales de los mismos, y vuestra labor consistirá en convertir, de cabeza, esos códigos 
hexadecimales para dibujar los gráficos en las plantillas. 


1 


Sección de plantilla 8x8 


Sección de plantilla 256x192 


Conversión hexadecimal/binario 


Aunque en un primer momento pueda resultar complicado hacer la conversión de un número 
hexadecimal a binario, y viceversa, la realidad es que es muy sencillo y prácticamente directa, 
necesitamos saber el valor de cada bit (pixel) en bloques de cuatro, lo que nos da un valor 
comprendido entre O y F, que es el valor que se puede representar con cada dígito hexadecimal. 


En un byte, cada bit a uno tiene un valor específico, siendo los siguientes: 


Bit 7 6 5 4 3 2 1 0 
Valor 128 64 32 16 8 4 2 1 


Cuando hacemos la conversión hexadecimal/binario, dividimos el byte en dos bloques de cuatro bits 
(nibble), lo que resulta en un rango de valores entre 0 y F (8 + 4+ 2 +1=15=F). De esta manera, 
para convertir de binario a hexadecimal, tan solo hay que sumar el valor de los bits a 1 de cada 
nibble, lo cual nos da el valor en hexadecimal. 


Suponed que tenemos el siguiente valor en binario: 
01011001 
Si sumamos los valores de los nibbles, el resultado sería: 
0+4+0+1=5 8+0+0+1=9 
Resultando que 01011001 en hexadecimal es 59. 


En hexadecimal, un byte se representa con dos dígitos. Pero, ¿qué pasa si el valor de algunos de los 
nibbles es mayor de 9? Veamos un ejemplo: 


11011011 =8+4+0+1=13y8+0+2+1=11 


¿Cómo representamos 13 y 11 con solo dos dígitos? En hexadecimal los valores de 10 a 15 se 
representan con letras, usando la siguiente nomenclatura: 


Decimal 1112 (3 4 [5 [6 [7 [8 [9 10 |11 [12 13 |14 115 
Hexadecimal 1112 (3 4 [5 [6 [7 [8 [9 [A B C D E, F 


Por lo que, en el ejemplo anterior, el valor hexadecimal de 11011011 es DB. 


Practicado la conversión hexadecimal/binario 


Una buena forma de aprender es con la práctica, y eso es lo que propongo a continuación; vamos a 
ver la definición de cada uno de los UDG que vamos a usar (los valores hexadecimales) y vamos a 
dibujarlos haciendo la conversión de hexadecimal a binario. 


Al trabajar con nibble (4 bits), la tabla de conversión para un byte sería la siguiente: 


Vamos a crear la carpeta Paso01, y dentro de ella el archivo Var.asm. Teniendo esta tabla a mano, 
vamos a dibujar la nave, cuya definición en hexadecimal (que vamos a copiar en el archivo creado) 
es la siguiente: 


udgsCommon : 


cla $24, S42, $99, Sol, Site, Silo, $24, Bda ; 590 Nave 


Vamos a hacer la conversión a binario. 


Byte |7|6|5|4|3 2/1/0 
Valor |8 2(1|8|4/2|1 
$24 XxX XxX 

$42 XxX Xx 
$99 Xx XxX Xx 
$bd Xx X|X|X|X Xx 
Sff X X|X|X|X|X XX X 
$18 XxX 

$24 XxX XxX 

$5a Xx XxX Xx 


Si trasladáis esta conversión a ZX Paintbrush, o a las plantillas que os he dejado, el resultado debe 
ser el siguiente, aquí está nuestra nave: 


Vamos a seguir practicando, haciendo las conversiones para el disparo y la animación de la 
explosión de la nave. Es importante que intentéis trasladar vosotros de hexadecimal a binario, y de 
ahí al gráfico. 


db $00, $18, $24, $5a, $5a, $24, $18, $00; $91 Disparo 


Byte |7|6 4 3 110 
Valor |8|4 8|4|2/|1 
$00 

$18 Xx ¡X 

$24 XxX 

$5a X| [X|X| |X 
$5a X| [X|X| |X 
$24 XxX 

$18 Xx ¡X 

$00 


db $00, $00, $00, $00, $24, S$5a, $24, $18 


p $92 


Explosión 1 


Byte 


Valor 8/4 


$00 


$00 


$00 


$00 


$24 


$5a Xx 


$24 


$18 


db $00, $00, $00, $14, $2a, $34, $24, $18 


p 5938 


Explosión 2 


Byte 


Valor 


$00 


$00 


$00 


$14 


$2a 


$34 


$24 


$18 


de $00, $00, $0c, $12, $2a, $56, $64, 


$18 


Explosión 3 


Byte 


Valor 
$00 


$00 
$0c 


$12 
$2a 


> 


$56 
$64 


$18 


dla $20), SL, $92, SAS, Sad, $727 $22) 


$18 


Explosión 4 


Byte 


Valor 


$20 


$51 


> 


$92 


$d5 


$a9 


$72 


$2c 


> 


$18 


A partir de aquí solo voy a poner la definición hexadecimal y la imagen del aspecto final de cada 


UDG. 


Quizá os preguntéis que significa el número que hay en cada comentario de cada definición; es el 
código del carácter que estamos redefiniendo, ese el código de carácter que mandaremos a imprimir 
para pintar el gráfico. No os preocupéis si ahora no lo entendéis, más adelante lo veréis mucho más 


claro. 


dy ASE, Say SEL, 
¿ly Hist, Sally HuElE, 
cla SHize, Sas, Su, 
db $ec, Sac, fec, 
dla $33, $377 SD) 
do See, Saf, $e, 
cla 500, 500, Esc, 
dla 513, Sl, eS 


db $00, $00, $00, 


$08, 
$00, 
$1f, 
Sac, 
$37, 
$b3, 
$tf, 
$cf, 


$00, 


$f3, 
$£f, 
$cd, 
$ec, 
$35, 
$f8, 
500, 
$ld, 


$00, 


$a7, 
Síf, 
$e7, 
Sac, 
$37, 
Saf, 
$£f, 
$£f, 


$00, 


Sef, Sae 
$00, $00 
SED, 317 
$ec, fac 
53d $7 
513 SS 
$55, S£f 
5307 SEO 


$00, $00 


$96 
$97 
$98 
$99 
$9%a 
$9b 
$9c 
$9d 


$9e 


Esquina 


Esquina 
Lateral 
Lateral 


Esquina 


Esquina 


Blanco 


superior izquierda 


Horizontal superior 


superior derecha 
izquierda 
derecha 


inferior izquierda 


Horizontal inferior 


inferior derecha 


udgsEnemiesLevell: 


db $8c, $42, $2d, 
db $31, $42, $b4, 
db $30, $46, $be, 


db $0c, $62, $7d, 


$30 
$0c 
$8c 


$31 


S9f Left/Up 
$a0 Rigth/Up 


Sal Left/Down 


$a2 Rigth/Down 


udgsEnemiesLevel2: 
¿ls Sal, Sto, $09), 
cl 50S,) Bel, SS, 
db $79, $%a, $14, 


db $9e, $52, $28, 


79 


$9e 


$cO 


503 


S9f Left/Up 


$a0 Rigth/Up 


Sal Left/Down 


$a2 Rigth/Down 


udgsEnemiesLevel3: 
db $fc, $84, $b4, 
dla 53%, $21, $2el, 
«dy Siles, Sid, $7, 


db $38, $28, Set, 


Silo 
$38 
SiS 


ISE 


, 


S9f Left/Up 
$a0 Rigth/Up 


Sal Left/Down 


$a2 Rigth/Down 


udgsEnemiesLevel4: 


dly $12, SI) $fe, $39, 


db $4f, $a9, $7f, $9c, 


db $4d, $92, $39, Ste, 


db $b2, $49, $9c, $T, 


$b2 


$£2 


SI9lE 
Sa0 
Sal 


$Sa2 


Left /Up 
Rigth/Up 


Left /Down 


Rigth/Down 


udgsEnemiesLevel5: 


do $76, $99, Sad, $d4, $547, 


dla $06, $99, $237 


cla Sie, Sia, Slocl, 


dla $392, SEL, Slol, 


$8a, 
Sl 
Su9r 


599, 


$4c 
$32 
s76 


$S6e 


Left/Up 
Rigth/Up 


Left/Down 


Rigth/Down 


udgsEnemiesLevel6: 


cla SUS, SO, SI), Balay 


dla $19, $566, E£%l, $99, 


db $24, $5a, $49, $b6, 


db $24, $5a, $92, $6d, 


$5a, 
$5a, 
566, 
566, 


$24 
$24 
$98 
$19 


Sof 


Left/Up 
Rigth/Up 


Left/Down 


Rigth/Down 


udgsEnemiesLevel?7: 


db $04, $72, $5d, $74, Ze, 


dl $20, Sis, SH, $28, 812, 


dla $520, Sis, Ha, $28, 81%, 


db $04, $32, $7d, $74, $2e, 


$4c, 
IZ y 
512 


$e, 


Left /Up 
Rigth/Up 


Left /Down 


Rigth/Down 


udgsEnemiesLevel8: 


cla 500, STe, Sday 508, $10, 


cla $500, $e, Sda, SiO, $36, 


db $04, $26, $4f, $Tc, $68, 


db 520, $64, $£2, $3e, $16, 


Saf, 
SEZ, 
$5a, 


$5a, 


$04 
$20 
$00 


$00 


Sof 


Left/Up 
Rigth/Up 


Left/Down 


Rigth/Down 


udgsEnemiesLevel9: 


db $e0, $d8, $6e, $5b, 


ly 07, Silo, $76, $da, 


db $08, $30, $5b, $6e, 


dls $10, SS, $da, $76, 


Left /Up 
Rigth/Up 


Left/Down 


Rigth/Down 


udgsEnemiesLevel10: 

cla $60, See, Hiar, Se, $13, $1, Sta, Ze ; $9f Left/Up 

da 507, 573, SE, $e, bes, Sas, $50, $34 ; Sad Rigth/Up 
dla $26, Só, ST, 972, $30, Hor, Ses, Sen Sal Teft/Down 
dla $34, $56, Sas, See, $e, Seal, ST, 507 ; $a2 Rigth/Down 


udgsEnemiesLevel11: 

dla $60, Sedes, Hor, 18, Sa, SV, Sa, SE ; $9f£ Left/Up 

dla 507, ST, Sto, $55, Sds, Sas, $96, $34 ; Sad Rigth/Up 
cla $28, Sas 875, Sa, $70, Sor, Sede, $60 ; Sal Left/Down 
dla $34, $356, See, Sde, $38, Std, SN, $07 ; $a2 Rigth/Down 


udgsEnemiesLevel12: 


cla $60, Sie, SE, SS, Sor, $18, $6, S28 ; $9f Left/Up 

da $07, STE, Señ, $36, Sta, Se, SI, SLA Pp $E0 Riga Úo 
dla $28, SC, $78, SS, $00, SE7, SES, $6E60 ; Sal Left/Down 
dls SIA, $530, SE, Sia, $30, Ser, Si, 507 ; $a2 Rigth/Down 


udgsEnemiesLevel13: 


cla 507, S6, $16, STE, Sae, 


db $e0, $36, $7e, SiO, STUD 


cla Se, SiO $34, S66, 


dla ESL, Saf, 5287 $36, 


SO 
$Sa0 
Sal 


$Sa2 


Left /Up 
Rigth/Up 


Left /Down 


Rigth/Down 


udgsEnemiesLevell14: 


dla SL, Sla, $6, S1D, $3c, $62, 


db $81, 298, 209), Sae, SO SÓ, 


dla $90, $562, $38, $96, Sla, 


db $09, $46, $3c, 0%, SIS, 


sof 


Left /Up 
Rigth/Up 


Left/Down 


Rigth/Down 


udgsEnemiesLevel15: 


dl 50%, 502, SO, Sue, $40, 


db $20, $40, $Sb0, $28, $02, 


db $20, $40, $Sb0, $28, $02, 


db $04, $02, S0d, $14, $40, 


$20 
$04 
$04 


$20 


Left/Up 
Rigth/Up 


Left/Down 


Rigth/Down 


udgsEnemiesLevell6: 


dl ES, Su, AS, Ho), Se, 12) $21) ELS 


cla $08, SL2, STE, SU, SIE, $14, Sel, Sel 


dla $13, $27, $26, Be, 99, Has, $48, ESO 


cla Ses, Sel, 814, $38, Sel, Sol, SIL2, S0e 


r 


Sl 
Sa0 
Sal 


Sa2 


Left /Up 


Rigth/Up 


Left/Down 


Rigth/Down 


udgsEnemiesLevel17: 


cl SEN, See, $390, $e, $399, $17, $60, 644 


cla $03, Sto, $68, $e, la, Ses, $560, $22 


dla $44, $66, $77, $38, $18, $30, Se, SEN 


dla $522, $66, Ses, ble, $36, $6, Sua, 503 


, 


Sl 
Sa0 
Sal 


$Sa2 


Left /Up 


Rigth/Up 


Left/Down 


Rigth/Down 


udgsEnemiesLevel18: 


db $02, $71, $69, $57, $2£, $Sle, $9, $78 


abisa0, se, 2596, ea, SE, 918, 2519) Ste 


dla 578, $93, Sile, S2%z, $97, 96% SL, SOZ2 


cla Sle, 519, $18, il, Se, $96, See, $540 


, 


S9f Left/Up 


Sa0 
Sal 


Sa2 


Rigth/Up 


Left/Down 


Rigth/Down 


udgsEnemiesLevel1l9: 


cla 520, $57, $50, Sie, $e, $19, 


cla $04, SiS, $07, 812 Bla, $8, 


db $44, $78, $79, $5e, $le, $e6, 


dla $22, Sle, $9, SV, 17 SODA 


$78, 
$le, 
Sa 


$fe, 


$44 
822 
$20 


$04 


r 


Sl 
Sa0 
Sal 


Sa2 


Left /Up 


Rigth/Up 


Left/Down 


Rigth/Down 


udgsEnemiesLevel20: 


db $36, $db, $be, $7c, 


ab 50€, Sdb, $7d, $3e, 


db $64, $db, $7c, Fbe, 


do $26, $db, $3e, $7d, 


Síó, 
56£, 
$2£, 


S£1, 


$64 
s26 
$36 


S6c 


r 


Sl 
Sa0 
Sal 


$Sa2 


Left/Up 


Rigth/Up 


Left/Down 


Rigth/Down 


udgsEnemiesLevel21: 


db $00, $70, $6e, $54, $2b, $34, 


db $500, $0e, $76, $2a, $d4, $2c, 


db $508, $28, $34, $2b, $54, $6e, 


elo SiO, Si4, Su, Sell, Sala, SO) 


$28, 
$14, 
570, 


$0e, 


508 
$10 
500 
500 


, 


$S9f Left/Up 


Sa0 
Sal 


$Sa2 


Rigth/Up 


Left/Down 


Rigth/Down 


udgsEnemiesLevel22: 

db $00, $78, $6e, $56, 
dla $00, Sl, 878, Say 
db $0c, $34, $3b, S6d, 


cla $30, $20, $e, ob, 


s0e 
$30 
$00 


$00 


udgsEnemiesLevel23: 

dls $0, $02, Say SID, 
dls $530, 340, Moe, Sas, 
dla $30, S40, S98, Sac, 


dla $08, $02, Sie, $35, 


$0c 


$S0c 


udgsEnemiesLevel24: 

dl $00, $77, $05, $90, 
db s00, Ses, 516, +63, 
¿ly $42, STO, S1L, Za, 


db $42, $de, $2e, $54, 


$42 
$42 
$00 


500 


Rigth/Down 


S9f Left/Up 


Rigth/Down 


Rigth/Down 


udgsEnemiesLevel25: 


cla $30, SEE, $76, $08, $9, $13, $6, $48 


dla $03, SEE, $6, $36, PSEa, $e, $36, BIZ 


cla SAS, SC, $78, SS, $00, $107 SEL, $E0 


dla $12, 836, STE, Bia, 90, Hs, SEE, S0S 


, 


Sl 
Sa0 
Sal 


Sa2 


Left /Up 


Rigth/Up 


Left/Down 


Rigth/Down 


udgsEnemiesLevel26: 


cla SS, 878, SEN, $ES, Sala, $68, 


cl Se, 51, Ser, Si, Sal, $16, 


cl SRA e) REL, Bee, Sas, Se, 


da $24, SL6, $87, $399, SiL7, $Te, 


Y 


Sl 
Sa0 
Sal 


Sa2 


Left/Up 


Rigth/Up 


Left/Down 


Rigth/Down 


udgsEnemiesLevel27: 


db 504, $02, $39, $2d, $3, $9%e, $4c, 


ely 220, $40, E%e, Hol, SES, 879, $SZ, 


dla $3) SS, EE, SIE, S20ly 83%, $02, 


ela Sie, $32, $79, Sie, Sl, Se, $10, 


, 


S9f Left/Up 


$Sa0 
Sal 


Sa2 


Rigth/Up 


Left /Down 


Rigth/Down 


udgsEnemiesLevel28: 

dl $00, $37, $69, Sa, $34, 
dla $00, Ses, $96, SIE, $20, 
dl 5Gé, SUS, $9, $30, Su, 


dla $20, $062, Sia $20, Sas 


$5£, 
$fa, 
569, 


$96, 


546, 
562, 
$37, 


$ec, 


, 


SO 
$Sa0 
Sal 


$Sa2 


Left/Up 


Rigth/Up 


Left /Down 


Rigth/Down 


udgsEnemiesLevel29: 

cla $00, 537, EG, Se, $394, 
cla $00, Ses, 900, Slay $20, 
cla $64, 5907, 7h, $394, $98, 


db $526, $6a, Ste, $2c, $/a, 


STE, 
SS) 
$6d, 


$b6, 


$56, 
$6a, 
$537 7 


SES 


$64 
s26 
$00 


$00 


, 


SE 
Sa0 
Sal 


Sa2 


Left /Up 


Rigth/Up 


Left/Down 


Rigth/Down 


udgsEnemiesLevel30: 

db $e0, $£f, Sed, $5b, $7e, 
cla $07, Sir, 59), Bela, le, 
db $72, $5£, $6e, S$Te, $5b, 


cla Sue, Sra, $10, 518, 5da, 


$6e, 
$76, 
Sed, 


$o7, 


SDE, 
$fa, 
SABLE y 


sí£, 


Y 


S9f Left/Up 


Sa0 
Sal 


Sa2 


Rigth/Up 


Left/Down 


Rigth/Down 


Conclusión 


Con esto ya tenemos definidos los gráficos que vamos a usar: tenemos la nave, el disparo, la 
explosión de la nave, el marco de la pantalla y los enemigos. 


Podéis observar que todos los enemigos tienen el mismo código de carácter, lo cual es debido a que 
hay un número limitado de caracteres para usar como UDG. No os preocupéis, más adelante 
veremos una forma de salvar esta limitación. 


Vuelvo a insistir en la importancia de practicar la conversión hexadecimal / binario, así que no lo 
dejéis para otro día, es un ejercicio sencillo. 


En el próximo capítulo veremos como usar los UDG y pintaremos todos nuestros gráficos en 
pantalla. 


0x02 Pintando UDG 


En este capítulo vamos empezar a dibujar usando UDG. El mapa de caracteres del ZX Spectrum 
está compuesto por doscientos cincuenta y seis valores, de los cuales podemos redefinir veintiuno, 
en concreto los que se encuentran entre el $90 (144) y el $A4 (164), ambos inclusive. 


Antes de empezar, creamos una carpeta que se llame Paso02 y copiamos el arhivo Var.asm (dónde 
definimos los gráficos que vamos a usar) desde la carpeta Paso01. 


¿Dónde están los UDG? 


El valor de la dirección de memoria $5C7B contiene la dirección de memoria donde están los 
gráficos definidos por el usuario, por lo que lo único que tenemos que hacer es cargar en esa 
dirección de memoria, la dirección dónde están definidos nuestros gráficos. Una vez que lo 
tengamos, al pintar con RST $10 cualquier carácter comprendido entre $90 y $A4, pintara los 
gráficos que hemos definido. 


Vamos a crear un nuevo fichero llamado Const.asm y vamos a añadir la línea siguiente: 


; Dirección de memoria donde se cargan los gráficos definidos por el usuario. 


UDG: EQU $5c7b 


En esta constante guardamos la dirección de memoria dónde cargaremos la dirección dónde están 
nuestros gráficos. 


Pintamos nuestros UDG 


Es el momento de hacer nuestra primera prueba, vamos a pintar los UDG. Creamos un fichero 
llamado Main.asm y vamos a añadir las líneas siguientes: 


org $5dad 
Main: 

ld a, $90 
ld 97 SIS 
Loop 

push af 

ESTE $10 
pop af 

LO a 

djnz Loop 
La 


end Main 


Lo primero que hacemos es indicar dónde se va a cargar el programa, ORG $5DAD. El programa lo 
cargamos en la posición $5DAD (23981), ya que Batalla espacial va a ser un programa compatible 
con modelos 16K. 


La siguiente línea es una etiqueta, Main, el punto de entrada del programa. 


Lo siguiente que hacemos es cargar 144 en A, LD A, $90, y 21 en B, LD B, $15, para pintar desde 
el carácter 144 al 164, haciendo un total de veintiún caracteres. 


El siguiente paso es hacer el bucle de veintiuna iteraciones, empezando con la etiqueta del mismo, 
Loop, y a continuación preservamos en la pila el valor del registro A, PUSH AF, lo cual es muy 
importante ya que la siguiente instrucción, RST $10, imprime en pantalla el carácter cuyo código 
esté cargado en el registro A, y luego modifica el valor de dicho registro. Acto seguido recuperamos 
de la pila el valor del registro A, POP AF. 


A continuación, incrementamos A, INC A, para que apunte al siguiente carácter y decrementamos B 
y saltamos a Loop si no ha llegado a cero, DINZ Loop. Por último volvemos al Basic, RET. 


Con la última línea le indicamos a PASMO que debe incluir en el cargador Basic una llamada a la 
dirección de memoria donde se encuentra la etiqueta Main. 


Es el momento de compilar y ver los resultados en el emulador. 


pasmo --name Marciano --tapbas Main.asm Maciano.tap --public 


Pero, ¿hemos pintado nuestros gráficos? 


B OK, 40: 1 


Z 


Como podemos ver, hemos pintado las letras mayúsculas de la A a la U, esto es debido a que en 
ningún momento hemos indicado dónde están nuestros gráficos. 


Seguimos en el archivo Main.asm, justo debajo de la etiqueta Main añadimos las líneas siguientes: 


la h1, udgsCommon 


ld (UDG), hl 


Cargamos en HL la dirección de memoria dónde están nuestros gráficos, LD HL, udgsCommon, y 
luego cargamos ese valor en la dirección de memoria en la que hay que indicar dónde están nuestros 
gráficos, LD (UDG), HL. 


Dado que tanto udgsCommon, como UDG no están definidas en el fichero Main.asm, justo detrás 
de la instrucción RET hay que añadir los includes para los ficheros Const.asm y Var.asm. 


include Comet. ase 


include CIS 


Ahora sí, podemos volver a compilar el programa, cargarlo en el emulador y ver nuestros gráficos 
en pantalla. 


Butes: Marciano.t 
A A 


g OK, 40:1 


Z 


Mucho mejor, ¿verdad? Pero, hemos pintado veintiún gráficos: la nave, el disparo, la explosión, el 
marco, el carácter vacío, los cuatro gráficos del enemigo uno, y dos gráficos del enemigo dos. 
¿Cómo vamos a pintar los otros dos gráficos del enemigo dos y los gráficos de los veintiocho 
enemigos restantes? 


Cargamos los UDG de los enemigos 


Si observáis la definición de los gráficos, la primera etiqueta se llama udgsCommon, y esto debería 
darnos una pista de como lo vamos a hacer. Como UDG comunes tenemos definidos quince 
gráficos (nave, disparo, explosión, marco y blanco), por lo que vamos a definir treinta y dos bytes 
para poder ir volcando en ellos los gráficos de los enemigos; lo vamos a hacer así porque los 
enemigos son uno por nivel, y la operación de volcado solo la tenemos que hacer una vez, justo con 
el cambio de nivel. 


En el archivo Var.asm, justo por encima de la etiqueta udgsEnemiesLeve1 añadimos las siguientes 
líneas: 


udgsExtension: 


db $00, $00, $00, $00, $00, $00, $00, $00 ; $9£ Lett/Up 
db $00, $00, $00, $00, $00, $00, $00, $00 ; $a0 Rigth/Up 
db $00, $00, $00, $00, $00, $00, $00, $00 ; Sal Left/Down 
db $00, $00, $00, $00, $00, $00, $00, $00 ; $a2 Rigth/Down 


En este bloque de memoria es dónde vamos a ir volcando los gráficos de los enemigos, 
dependiendo del nivel en el que nos encontremos. 


Probad a compilar ahora y observad que pinta. ¿Faltan los gráficos del enemigo uno verdad? Está 
pintando udgsExtension. 


Creamos un nuevo archivo, Graph.asm, y vamos a implementar en él la rutina que carga en 
udgsExtension los gráficos de los enemigos de cada nivel, dato que recibe en A. 


Para calcular la dirección de memoria donde se encuentran los gráficos, vamos a multiplicar el nivel 
por treinta y dos (bytes que ocupan los gráficos) y el resultado se lo vamos a sumar a la dirección de 
memoria donde se encuentran los gráficos del primer enemigo. 


LoadUdgsEnemies: 


dec a 
ld SOLO 
ko: de al 


Dado que los niveles van de uno a treinta, decrementamos A, DEC A, para que no sume un nivel de 
más (si el nivel es cero, tiene que sumar cero veces a udgsEnemies, si es dos una vez, etc.). 


Lo siguiente es cargar el nivel en HL, para lo cual cargamos cero en H, LD H, $00, y el nivel en L, 
LD L, A. 


add Al 
add Al 
add al, ladl 
add al, Jal 
add al, Jail 


Multiplicamos el nivel por treinta y dos, sumando HL a si mismo cinco veces, ADD HL, HL. La 
primera suma es igual a multiplicar por dos, la segunda por cuatro y las siguientes por ocho, por 
dieciséis, y por treinta y dos. 


ko! de, udgsEnemieslLevell 
add hl, de 
ld de, udgsExtension 


ld le, $20 


Jolie 


Ter 


Por último, cargamos la dirección de los gráficos del enemigo uno en DE, LD DE, 
udgsEnemiesLevell1, y se lo sumamos a HL, ADD HL, DE, cargamos la dirección de la extensión 
de udgs en DE, LD DE, udgsExtension, cargamos en BC en número de bytes que vamos a cargar 
en udgsExtension, LD BC, $20, y cargamos los treinta y dos bytes de los gráficos del enemigo del 
nivel a udgsExtension, LDIR. Finalmente salimos, RET. 


El aspecto final de la rutina es el siguiente: 


A -> Nivel de 1 a 30 


Entradas 


; Altera el valor de los registros A, BC, 


, 


LoadUdgsEnemies: 


dec a E 
Lal h, $00 

ld Ll) a ; 
add a, Jal É 
add Ñdl, Tal £ 
add al, Ted E 
add al, Tal E 
add a, Jul a 
la de, udgsEnemieslLevell 
add hl, de E 
ld de, udgsExtension P 
ld 53, $20 ; 
Jlcktie ; 

CE 


Copia los bytes del 


; Carga los gráficos definidos por el usuario relativos a los enemigos 


DE 


Decrementa A para que no sume un nivel de más 


Carga en HL el nivel 


; Multiplica por 2 
; por 4 
MO NRO 


o ae 18 


PONSZ 
; Carga la dirección de los gráficos del 


; enemigo 1 en DE 


Lo. suma a HL 


Carga en DE la dirección de la extensión 


Carga en BC el número de bytes a copiar, 32 


n los de extensión 


nemigo 


Y ahora vamos a probar la nueva rutina, para lo cual vamos a editar el archivo Main.asm, 
empezando por cambiar la instrucción LD B, $15, justo encima de la etiqueta Loop, y la dejamos 


como sigue, para imprimir los quince primeros 


UDG, los comunes: 


JLil b, SO£f 


El resto lo vamos a implementar entre la instrucción DINZ Loop y la instrucción RET. 


ld a, $01 


ld lo, Siles 


Cargamos en A el nivel uno, LD A, $01, y en B el número de niveles totales (treinta), LD B, $1E. 
Implementamos un bucle para pintar los enemigos de los treinta niveles. 


Loop2: 

push af 

push 19 

cad LoadUdgsEnemies 


Preservamos los valores de AF, PUSH AF, y de BC, PUSH BC, ya que usamos A y B para 
controlar que enemigos pintamos y las iteraciones del bucle. A continuación, llamamos a la rutina 
que carga los gráficos del enemigo del nivel en udgsExtension, CALL LoadUdgsEnemies. 


ld ay 9 
rst $10 
ld a, $a0 
rst $10 
ld a, Sal 
rst $10 
ld a, $a2 
Sii $10 


Los caracteres correspondientes a los gráficos de los enemigos son $9F, $A0, $A1 y $A2; los vamos 
cargando en A, LD A, $9F, y pintando, RST $10. Repetimos la operación con $A0, $A1 y $A2. 


pop be 
pop af 
ae a 
djnz Loop2 


Recuperamos el valor de BC, POP BC, de AF, POP AF, incrementamos A para pasar al siguiente 
nivel, INC A, y repetimos hasta que B sea 0, DIJNZ Loop2. 


Por último, a final del fichero y antes de END Main, incluimos el fichero Graph.asm. 


include "Graph.asm" 


El código final de Main.asm es el siguiente: 


org $5dad 
Main: 

la h1, udgsCommon 
ld (UDG), hl 
ld al 190 

ld 97 SOÉ 
Loop: 

push af 

rst $10 

pop af 

inc a 

djnz Loop 

ld a, $01 

ld b, $le 
Loop2: 

push af 

push Ie 

edil LoadUdgsEnemies 
ld ay SO 
rst $10 

ld a, $a0 
rst $10 

ld a, Sal 
rst $10 

ld a, $a2 
rst $10 

pop De 

pop af 

inc a 

djnz Loop2 


el 


include "Const.asm" 


include "Var.asm" 
include "Graph.asm" 
end Main 


Compilamos y cargamos en el emulador; ya pintamos todos nuestros gráficos. 


Conclusión 


Llegados a este punto, ya tenemos definidos todos los gráficos y hemos aprendido como pintarlos. 


En el próximo capítulo pintaremos el área de juego. 


0x03 Área de juego 


Creamos la carpeta Paso03 y copiamos los archivos Const.asm, Graph.asm, Main.asm y Var.asm 
desde la carpeta Paso02. 


Antes de comenzar a pintar el área de juego es necesario saber que la pantalla del ZX Spectrum se 
divide en dos zonas, la parte superior con veintidós líneas (de la cero a la veintiuna), y la parte 
inferior (la línea de comandos). 


Si cargáis el programa resultante del capítulo anterior, una vez que se ejecuta, si pulsamos la tecla 
ENTER se muestra el listado del cargador. Si ejecutáis la línea 40 (RUN 40), se deberían volver a 
pintar nuestros gráficos, pero no es así. En realidad si se pintan, pero se pintan en la línea de 
comandos; si estáis atentos veréis como se pintan y luego desaparecen. 


Tras ejecutar nuestro programa, la parte de la pantalla activa es la línea de comandos, así que 
necesitamos un mecanismo para activar la parte de la pantalla en dónde queramos pintar. 


Cambiando la pantalla activa 


La parte superior de la pantalla es la dos, y la inferior es la uno. En la ROM hay una rutina que 
activa uno u otro canal, dependiendo del valor que haya en el registro A. 


Abrimos el archivo Const.asm y añadimos la líneas siguientes: 


; Rutina de la ROM que abre el canal de la pantalla. 


p Jijotercelolas 14 => (Camel 1 = línea de comandos 
; 2 = pantalla superior 


OPENCHAN: EQU $1601 


A continuación, abrimos el archivo Main.asm y justo debajo de la etiqueta Main añadimos las líneas 
siguientes: 


ld a, $02 


call OPENCHAN 


Cargamos en A el canal que queremos activar, LD A, $02, y luego llamamos a la rutina de la ROM 
para activarlo, CALL OPENCHAN. 


Compilamos, cargamos en el emulador, pulsamos cualquier tecla, ejecutamos la línea 40 (RUN 40) 
y ahora sí se vuelven a pintar nuestros gráficos en el lugar correcto. 


Pintamos cadenas de texto 


Al trabajar con UDG, podríamos decir que pintamos caracteres, y como tal vamos a pintar la 
pantalla de juego. 


Lo primero que vamos a implementar es una rutina que pinta cadenas de caracteres, indicando la 
dirección de memoria de la cadena y la longitud de la misma. 


Creamos un nuevo archivo, Print.asm, e implementamos la rutina PrintString, que recibe en HL la 
dirección de la cadena y en B la longitud de la misma. Esta rutina altera el valor de los registros AF, 
B y HL. 


POE SE cIaO)S 

ld El (mal) 

rst $10 

LS hl 

djnz PR DoRaling 
SE 


Carga en A el carácter a pintar, LD A, (HL), pinta el carácter, RST $10, apunta HL al siguiente 
carácter, INC HL, y repite la operación hasta que B valga 0, DIJNZ PrintString. Finalmente, sale, 
RET. 


El aspecto final de la rutina, una vez comentada, es el siguiente: 


; Entrada: HL = primera posición de memoria de la cadena 


E B = longitud de la cadena. 
; Altera el valor de los registros AF, B y HL 


, 


Drs Pb ge 

ld al (al) ; Carga en A el carácter a pintar 
Sie $10 ; Pinta el carácter 

ae hl ; Apunta HL al siguiente carácter 
djnz Braaitesitón q ; Hasta que B valga 0 

CE 


El siguiente paso es probar, así que vamos a editar el archivo Main.asm. Lo primero, para que no se 
nos olvide, es incluir el archivo Print.asm antes END Main: 


include "Print.asm" 


Justo antes de los includes, vamos a definir una cadena con dos etiquetas, la de la propia cadena y 
una segunda etiqueta para marcar el final de la misma. 


Cadena: 
db 'Hola Mundo' 


Cadena Fin: 


db $ 


Justo antes del RET que nos saca al Basic, vamos a añadir la llamada a la nueva rutina. 


dal hl, Cadena 
BlEGl b, Cadena Fin - Cadena 
saul Brie Halón o 


Compilamos, cargamos en el emulador y vemos los resultados. 


B OR, 40: 1 


Z 


Como se puede apreciar, se ha pintado la cadena Hola Mundo a continuación de nuestros gráficos. 


Vamos a añadir unos caracteres antes de la cadena, y la vamos a dejar como sigue: 


dla SS, S08, SO3), Mola Mumia" 


Volvemos compilar, cargamos en el emulador y vemos el resultado. 


Hola Mundo 


B OR, 40: 1 


Z 


Como se puede observar, la cadena Hola Mundo aparece más centrada, lo que hemos conseguido 
con los caracteres que hemos añadido por delante de la cadena, en concreto $16 que es el carácter 
de control de AT (instrucción Basic para posicionar el cursor), y las coordenadas Y y X. 


A continuación se muestra una lista de los caracteres de control que podemos usar al pintar las 
cadenas de esta manera, y los parámetros que hay que enviar. 


Carácter Código Parámetros Valores 
DELETE $0c 
ENTER $0d 
INK $10 Color De $00 a $07 
PAPER $11 Color De $00 a $07 
FLASH $12 No/Sí De $00 a $01 
BRIGHT $13 No/Sí De $00 a $01 
INVERSE $14 No/Sí De $00 a $01 
OVER $15 No/Sí De $00 a $01 
AT $16 Coordenadas Y y X Y = de $00 a $15 
X = de $00 a $1f 
TAB $17 Número de tabulaciones 


Es muy importante que todos los códigos de control vayan seguidos de sus parámetros, para evitar 
resultados no deseados. Así mismo, si se imprime una cadena después de TAB, hay que añadir un 
espacio en blanco como primer carácter de la cadena. 


Como ejercicio, probad distintas combinaciones con los caracteres de control, probad a darle color, 
parpadeo, etc. 


Pintamos la pantalla de juego 


La pantalla de juego esta bordeada por un marco, pero antes de pintar nada vamos a limpiar el 
archivo Main.asm, quitando todo lo que nos sobra; borramos desde las dos líneas anteriores a la 
etiqueta Loop, hasta la línea anterior de la instrucción RET, también borramos la definición de 
Cadena y Cadena_Fin. 


El aspecto de Main.asm debe ser el siguiente: 


org  S$5dad 

Main: 

ld a, $02 

eeuLal OPENCHAN 

Mis hl1, udgsCommon 
Jl! (UDEG) A 

mel 


include "Const.asm" 


include "Var.asm" 


include "Graph.asm" 


include "Print.asm" 


end Main 


Ahora vamos a definir en Var.asm las cadenas necesarias para pintar el marco. La vamos a incluir 
antes de udgsCommon. 


; Marco de la pantalla 
frameTopGraph: 
dl Silo, $00, S00, SILO, SO 


da $90, EM, M4 SV. SH $977 $977 $97, EST SMA LV BV) $7 59V7 $977 $907, ENT: 
510 BT $977 $377 $7 $377 EM BH) SIMIL SS, $577 $977 $77 EST EN 


frameBottomGraph: 
dl SiS, SS, 500 


dla SU), SI, de, de, $9, Sde, $e, $9, $%, $%, $e, $%, $%, $%, $%;, $9, $%, 
Se, $e, Ie, 59, $9e, $9, $9, $9, Se, Se, $e, $9, de, 8%, Sl 


frameEnd: 


En la primera línea DB definimos la posición de la parte de arriba, $16, $00, $00 y la tinta, $10, 
$01. 


En la siguiente línea definimos la parte superior del marco, primero la esquina superior izquierda, 
$96, luego treinta posiciones de horizontal superior, $97, y por último la esquina superior derecha, 
$98; todos estos números los pusimos en los comentarios de la definición de los gráficos. 


En la siguiente línea definimos la posición de la parte de abajo, $16, $15, $00. 


En la siguiente línea definimos la parte inferior del marco, primero la esquina inferior izquierda, 
$9b, luego treinta posiciones de la horizontal inferior, $9c, y por último la esquina inferior derecha, 
$9d. 


Vamos a ver como se pinta todo esto. Volvemos a Main.asm y justo encima del RET, incluimos las 
líneas siguientes: 


ld h1l, frameTopGraph 
Jl! b, frameEnd - frameTopGraph 
Call ID ME Sic ic Lo) 


Compilamos, cargamos en el emulador y vemos los resultados. 


Butes: Marciano 


0 OK, 40: 1 


Z 


Hemos pintado la parte superior del marco y la inferior, aunque el marco no está completo ya que 
faltan los laterales. 


Vamos a implementar una rutina que imprima el marco, y lo vamos a hacer en Print.asm. 


PrintFrame: 

ld h1l, frameTopGraph 

Jl b, frameBottomGraph - frameTopGraph 
slill Prints pel 


Cargamos en HL la dirección de memoria de la parte superior del marco, LD HL, frameTopGraph, 
cargamos en B la longitud, restando a la dirección de inicio de la parte inferior la dirección de inicio 
de la parte superior, LD B, frameBottomGraph - frameTopGraph, y llamamos a la rutina que pinta 
las cadenas, CALL PrintString. 


a! hl, frameBottomGraph 
ie! b, frameEnd - frameBottomGraph 
edil Brito pel 


Cargamos en HL la dirección de memoria de la parte inferior del marco, LD HL, 
frameBottomGraph, cargamos en B la longitud, restando a la dirección de memoria donde acaba la 
cadena la dirección de inicio de la parte inferior, LD B, frameEnd — frameBottomGraph, y 
llamamos a la rutina que pinta las cadenas, CALL PrintString. 


Ya solo queda implementar un bucle para pintar los laterales. 


Ll ¡9 01 


printFrame loop: 


ld a, $16 
Ste 110) 
ld a, b 


rst $10 


ld a, $00 


Sia $10 
ld ay $99 
rst $10 


Cargamos en B la línea en la que empezamos a pintar los laterales, LD B, $01, cargamos en A el 
carácter de control de AT, LD A, $16, y lo “pintamos”, RST $10, cargamos en A la coordenada Y, 
LD A, B, y la “pintamos”, RST $10, cargamos en A la columna cero, LD A, $00, y la “pintamos”, 
RST $10, y por último, cargamos en A el carácter del lateral izquierdo, LD A, $99, y lo pintamos, 
RST $10. 


Hacemos lo mismo con el lateral derecho, debido a que el código es prácticamente el mismo, solo 
marcamos las dos líneas que cambian. 


ld a, $16 

rst $10 

ld alg 19 

rst $10 

ld ely Sl p ¡CAMBIO 
rst $10 

ld ay Ya ; ¡CAMBIO! 
Sii $10 


Y llegamos a la parte final de la rutina. 


1L9xo b 

ld Ely 19 

cp $15 

aa nz, printFrame loop 
met 


Apuntamos B a la siguiente línea, INC B, cargamos el valor en A, LD A, B, y comprobamos si B 
apunta a la línea veintiuno (línea donde se encuentra la parte inferior del marco), CP $15, y de no 
ser así repite el bucle hasta que llegue a la línea veintiuno, JR NZ, printFrame_loop. Una vez que 
B apunta a la línea veintiuno, salimos, RET. 


El aspecto final de la rutina es el siguiente: 


; Pinta el marco de la pantalla. 


; Altera el valor de los registros HL, B y AF. 


, 


PrintFrame: 


ld 


ld 


cad 


ld 


ld 


Call 


ld 


hl1, frameTopGraph ; 


b, frameBottomGraph - frameTopGraph ; 


Brin tSiering ; 
hl1l, frameBottomGraph ; 
b, frameEnd - frameBottomGraph ; 
Brataiasirón q ; 
9 $01 7 


printFrame loop: 


ld 
St 
Jlel 
SE 
ld 
SE 
ld 


LE 


ld 
Ese 
ld 
SN 
Jlial 
Si 
ld 


SL 


ae 
ld 


cp 


JE 


eE 


af Só 


ay $99 


a, $9 


b 
a, b 


$15 


nz, printFrame loop 7 


Carga en HL la dirección de la parte superior 


Carga en B la longutid 


Pinta la cadena 


Carga en HL la dirección de la parte inferior 


Carga en B la longitudd 


Pinta la cadena 


Apunta B a 


Carga en A 
Lo Motaia" 
Carga en A 
La "pinta" 
Carga en A 


” 


La “pinta 


Carga en A 


Lo pinta 


Carga en A 
o Molar 
Carga en A 
La "pinta" 


Carga en A 


po /, 


La “pinta 


Carga en A 


Lo pinta 


la 


la 


el 


el 


la 


la 


línea 1 


carácter de control de AT 


línea 


columna 


carácter lateral izquierdo 


carácter de control de AT 


línea 


columna 


carácter lateral derecho 


Apunta B a la línea siguiente 


Carga el valor de Ben A 


Comprueba si está en la línea veintiuno 


Si no es así, 


sigue con el bucl 


Ha llegado el momento de probar si se pinta todo el marco. Volvemos al archivo Main.asm y 
sustituimos estas lineas: 


ld 


ld 


hl1l, frameTopGraph 


b, framel 


End - frameTopGraph 


saul Brie Pain o 


Por esta otra: 


Cad PrintFrame 


Compilamos, cargamos en el emulador y vemos el resultado. 


Biutes: Marciano 


B OK, 40: 1 


FS 


Como vemos, ya hemos pintado el marco de la pantalla, pero quedan cosas por hacer; no hemos 
borrado la pantalla y se ven cosas que no deberían estar. 


Limpiamos y coloreamos la pantalla 


Muchos de los listados Basic que se pueden ver, en algún momento tienen una línea parecida a esta: 


BORDERSO: ENK 7 IPABERCO: CIS 


Con esta línea se pone el borde de la pantalla en negro, la tinta en blanco y el fondo negro, y por 
último se limpia la pantalla aplicando los atributos de tinta y fondo. 


Vamos a usar la ROM del ZX Spectrum para asignar tinta, fondo, limpiar la pantalla y vamos a 
implementar el cambio de color del borde. 


Empezamos con la parte en la que limpiamos la pantalla, para lo cual abrimos el archivo Const.asm 
y añadimos las líneas siguientes: 


; Variable de sistema donde están los atributos de color permanentes 


ATTR_P: EQU $5c8d 


; Rutina de la ROM que limpia la pantalla usando el valor que hay en ATTR P. 


CLS: EQU SOdaf 


En ATTR_P se guardan los atributos permanentes de color en formato FBPPPIIL, dónde F = FLASH 
(0/1), B = BRIGHT (0/1), PPP = PAPER (de 0 a 7) e III = INK (de O a 7). Por otro lado, CLS limpia 
la pantalla aplicando los atributos que hay en ATTR_P. 


Volvemos a Main.asm y justo antes de la llamada a PrintFrame, añadimos las líneas siguientes: 


ld RRA MBRE 
ld (Ind) y $07 
call (ALS 


Cargamos la dirección de memoria de los atributos permanentes en HL, LD HL, ATTR_P, y 
ponemos FLASH a 0, BRIGHT a 0, PAPER a 0 e INK a7, LD (HL), $07. Por último, llamamos a 
la rutina que limpia la pantalla, CALL CLS. 


Compilamos, cargamos en el emulador y vemos los resultados. 


Z 


Ahora vamos a cambiar el color al borde. Ya vimos en PorompomPong que la rutina BEEPER de la 
ROM cambia el color del borde, por lo que es necesario guardar los atributos en una variable de 
sistema; los atributos tienen el mismo formato que el visto para ATTR_P. 


Volvemos al archivo Const.asm y añadimos la constante para la variable de sistema donde se 
guardan los atributos del borde. 


; Variable de sistema donde se guarda el borde. También usada por BEEPER. 


; También se guardan aquí los atributos de la línea de comandos. 


BORDCR: EQU $5c48 


Y ahora volvemos a Main.asm y ponemos el borde en negro, justo debajo de CALL CLS. 


xor a 

out ($fe), a 
ld a, (BORDCR) 
and Se7 


or 017) 


ld (BORDCR), a 


Ponemos A a cero, XOR A, y el borde en negro, OUT ($FE), A. A continuación, cargamos el valor 
de BORDCR en A, LD A, (BORDCR), desechamos el color del borde y así lo ponemos en negro = 
0, AND $C7, ponemos la tinta en blanco, OR $07, y cargamos el valor en BORDCR, LD 
(BORDCR), A. 


La instrucción OR $07 solo es necesaria mientras volvamos al Basic, recordemos que en BORDCR 
están los atributos de color de la línea de comandos y si no cambiamos la tinta a blanca, se queda 
como originalmente está, en negro, igual que el color que le hemos dado al fondo. 


Compilamos, cargamos en el emulador y vemos los resultados. 


Ya solo nos queda pintar el área de información de la partida, cosa que haremos en la línea de 
comandos. 


Pintamos la información de la partida 


Lo primero es definir la línea de título del área de información de la partida, lo que vamos a hacer al 
inicio de Var.asm. 


; Título de información de la partida 


infoGame: 


ds SL, $05, SILO, 500, SO 


db 'Vidas Puntos Nivel Enemigos' 


infoGame end: 


En la primera línea ponemos la tinta en magenta y posicionamos el cursor en las coordenadas 0,0. 
En la línea siguiente definimos los títulos de la información. 


Vamos implementar en Print.asm la rutina que pinta los títulos de la información. 


PrintInfoGame: 
ld ay SO 


camAll OPENCHAN 


Como los títulos de la información se pintan en la línea de comandos, lo primero que hay que hacer 
es activar el canal uno. Cargamos uno en A, LD A, $01, y llamamos al cambio de canal, CALL 
OPENCHAN. 


Jal hl, infoGame 
ld kb, infoGame end - infoGame 
saul BR pain g 


Cargamos en HL la dirección del mensaje de información, LD HL, infoGame, cargamos en B la 
longitud del mensaje, LD B, infoGame_end —- infoGame, y llamamos a pintar la cadena, CALL 
PrintString. 


ld a, $02 
cad OPENCHAN 
ret 


Por último, volvemos a activar el canal dos (la pantalla superior), y salimos. 


El aspecto final de la rutina es el siguiente: 


; Pinta los títulos de información de la partida. 

; Altera el valor de los registros A, C y HL. 

PrintInfoGame: 

ld Ely SOL ; Carga len A 

Call OPENCHAN ; Activa el canal 1, línea de comando 
ld h1, infoGame ; Carga la dirección de la cadena de títulos en HL 
ld kb, infoGame end - infoGame ; Carga la longitud en B 
Call BR Sian g ; Pinta la cadena de títulos 

ld y SOZ ; Carga 2 en A 

exadll OPENCHAN ; Activa el canal 2, pantalla superior 
met 


Ahora volvemos a Main.asm y justo después de CALL PrintFrame, añadimos la llamada para 
pintar los títulos de información de partida. 


sad PrintInfoGame 


Si ahora mismo compiláramos, probad si queréis, da la sensación de que lo último que hemos 
implementado no funciona, no pinta los títulos de información. En realidad si lo hace, pero al volver 
al Basic, el mensaje 0 OK, 40:1 lo borra. 


Para evitar esto, vamos a quedarnos en un bucle infinito; localizamos la instrucción RET que nos 
devuelve a Basic y la sustituimos por las líneas siguientes: 


Main loop: 


356 Main loop 


El código final de Main.asm es el siguiente: 


org $5dad 

Main: 

ld a, $02 

cad OPENCHAN 

la hl1, udgsCommon 
ld (CUIDIE)) y md 

ld hl, ATTR_P 
JLál (ni) $07 
exaLal ENS 

xor a 

out ($fe), a 

Jal a, (BORDCR) 
and SET 

or S07 

Jal (BORDCR), a 
Call PrintFrame 
¡adi PrintInfoGame 


Main loop: 


ajES Main loop 
include "Comst asa 
include "Var.asm" 


include "Graph.asm" 


include "Print.asm" 


end Main 


Ahora sí, compilamos, cargamos en el emulador y vemos el resultado. 


No sé que os parece a vosotros, pero a mí, que los títulos estén tan pegados al marco, no me gusta. 
Dado que en la línea de comandos solo disponemos de dos líneas sin que haga scroll, y debajo de la 
línea de títulos hay que pintar los datos, solo nos queda una opción, quitarle una línea al área de 
juego. 


Vamos al archivo Var.asm, localizamos la etiqueta frameBottomGraph, y justo en la línea de abajo 
vemos el DB que posiciona el cursor; vamos a modificar esta línea para que la coordenada Y sea 
veinte en lugar de veintiuno. 


db $16, $14, $00 


Ahora tenemos que ir a Print.asm y localizar la etiqueta printFrame_loop. Este bucle se ejecuta 
hasta que B vale veintiuno; tenemos que modificar esta condición para que se ejecute hasta que 
valga veinte. Dos líneas por encima del RET de este método tenemos CP $15, esta es la línea que 
tenemos que modificar dejándola de la siguiente manera: 


cp $14 ; Comprueba si está en la línea veinte 


Volvemos a compilar, cargamos en el emulador y vemos los resultados. 


Conclusión 


Llegados a este punto, ya tenemos nuestro área de juego. 


En el próximo capítulo incluiremos la nave y la moveremos. 


0x04 Nave 


Antes de nada, creamos la carpeta Paso04 y copiamos, desde la carpeta Paso03, los archivos 
Const.asm, Graph.asm, Main.asm, Print.asm y Var.asm. 


En este capítulo vamos a implementar la nave, su movimiento, y por tanto, los controles. 


Posicionamiento en pantalla 


Hasta ahora, hemos usado el carácter de control de la instrucción AT y las coordenadas para 
posicionarnos por la pantalla, pero esto resulta lento. 


Abrimos Graph.asm y al inicio del archivo vamos a implementar una rutina que hace lo mismo, 
pero es más rápida. 


; Posiciona el cursor en las coordenadas especificadas. 


; Entrada: B = Coordenada Y (24 a 3). 
8 == ConrcEmadea e (S2 Ea du). 


; Altera el valor de los registros AF y BC. 


At 

push de ; Preserva el valor de DE 
push hl ; Preserva el valor de HL 
Call $0a23 ; Llama a la rutina de la ROM 
pop hl ; Recupera el valor de HL 
pop de ; Recupera el valor de DE 

SE 


En esta rutina hacemos uso de la rutina de la ROM que posiciona el cursor. Preservamos el valor de 
DE, PUSH DE, y el de HL, PUSH HL. Una vez preservados estos valores, llamamos a la rutina de 
la ROM, CALL $0a23, y recuperamos los valores de HL, POP HL, y también el de DE, POP DE. 
Finalmente, salimos, RET. 


En los comentarios podéis observar que esta rutina, en realidad la de la ROM, también altera el 
valor de AF y BG, pero no los preservamos; no nos va a afectar que lo altere y por eso nos 
ahorramos dos PUSH y dos POP. 


Otra cosa a tener muy en cuenta, y una pista os la dan los comentarios, es que para la rutina de la 
ROM la esquina superior izquierda está en las coordenadas Y=24 y X=32, por lo que trabajaremos 
con las coordenadas invertidas con respecto a la instrucción AT. 


Vamos a abrir el archivo Const.asm y añadimos las constantes de las coordenadas. 


; Coordenadas de la pantalla para la rutina de la ROM que posiciona el cursor, 


; relativas al área de Juego (el marco). 

COR _X: EQU $20 ¡; Coordenada X de la esquina superior izquierda 

COR Y: EQU $18 ; Coordenada Y de la esquina superior izquierda 

MIN X: EQU $00 ; A restar de COR X para X esquina superior izquierda 


MIN Y: EQU $00 ; A restar de COR Y para Y esquina superior izquierda 


MAX X: EQU $1f ¡; A restar de COR X para X esquina inferior derecha 


MAX Y: EQU $15 ; A restar de COR Y para Y esquina inferior derecha 


Recordemos que la directiva EQU no se compila, por lo que no aumenta el tamaño del binario, lo 
que hace es sustituir la etiqueta por el valor en aquellos lugares en dónde se encuentre. 


Pintamos la nave 


Lo primero que vamos a hacer es poner la nave en nuestra zona de juego; la nave se va a mover de 
izquierda a derecha en la parte inferior de la zona de juego. 


Al ser la nave una parte móvil, necesitamos saber en todo momento en que posición está, y la 
posición inicial, tal y como vimos con las palas en PorompomPong. 


Abrimos el archivo Var.asm (el que hay en la carpeta Paso04), y añadimos, tras las declaraciones de 
los títulos de información de la partida, las líneas siguientes: 


; Declaraciones de los gráficos de los distintos personajes 


¿ y la configuración de coordenadas (Y, X) 


; Nave 
shipPos: 


dw $0511 


En el caso de la nave, solo vamos a definir la posición, DW $0511, un valor de dos bytes, primero la 
coordenada Y y luego la X, que durante la partida cargaremos en BC para posicionar la nave. La 
posición $0511 es el resultado de restar 19 ($13) y 15 ($0f) de las coordenadas de la esquina 
superior derecha que usa la rutina de la ROM ($1820). 


Abrimos el archivo Const.asm e incluimos constantes para el carácter de la nave, la posición inicial 
y los topes a izquierda y derecha. 


; Código de carácter de la nave, posición inicial y topes 


SHIP _GRAPH: EQU $90 


SIRLIio JUNJAL e HOURS OSA 


SHIP_TOP_L: EQU $le 


SHIP_TOP_R: EQU $01 


Para pintar los colores correctos, y para no repetir el código una y otra vez, vamos a implementar 
una rutina para cambiar el color de tinta, la vamos a implementar en el archivo Graph.asm. Esta 
rutina recibe en A el valor de la tinta. 


Antes de implementar la rutina, abrimos el archivo Const.asm y añadimos la constante de la 
posición de memoria donde se guardan los atributos de color actuales. Estos atributos son los 
usados por RST $10 para asignar el color al carácter que pinta. 


; Variable de sistema donde están los atributos de color actuales 


ATTRN: EQU $5c8£ 


Y ahora sí, abrimos el archivo Graph.asm e implementamos la rutina Ink. 


; Cambia la tinta 


; Entrada: A -> Color de la tinta 


; Altera el valor del registro A. 


Ink: 

exx ; Preserva el valor de BC, DE y HL 
Jal 9, a p Carga la ieimra sa 13 

JLo a, (ATTR_T) ; Carga los atributos actuales en A 
and SES ; Desecha los bits de la tinta 

or b ; Añade la tinta 

Jal CAT 1), 2 ; Carga los atributos actuales 

exx ; Recupera el valor de BC, DE y HL 
mete 


Dado que necesitamos apoyamos en el registro B, lo primero que hacemos es preservar su valor con 
la instrucción EXX, que lo que hace es intercambiar el valor de los registros BC, DE y HL con los 
registros alternativos “BC, “DE y “HL con tan solo un byte y cuatro ciclos de reloj, siendo más 
rápido y ocupando menos que si hubiéramos usado la pila. 


Cargamos en B el valor de la tinta, LD B, A, cargamos en A los atributos actuales, LD A, 
(ATTR_T), desechamos la tinta, AND $F8, añadimos la tinta, OR B, y cargamos el resultado en los 
atributos actuales, LD (ATTR_T), A. Por último, recuperamos el valor de los registros BC, DE y 
HL, EXX, y salimos, RET. 


Ahora necesitamos una rutina que pinte la nave; la vamos a implementar en el archivo Print.asm. 


Brains noe 


ld a, $07 


sali Ink 


Cargamos en A la tinta blanca, LD A, $07, y llamamos a cambiar la tinta, CALL Ink. 


ld bc, (shipPos) 


Gadll At 


Cargamos en BC la posición actual de la nave, LD BC, (shipPos), y llamamos a posicionar el 
cursor, CALL At. 


JLo! a, SHIP_GRAPH 
rst 1110) 
Let 


Cargamos en A el código de carácter de la nave, LD A, SHIP_GRAPH, la pintamos, RST $10, y 
salimos, RET. 


Ya tenemos lista la rutina que pinta la nave, cuyo aspecto final es el siguiente: 


; Pinta la nave en la posición actual. 

; Altera el valor de los registros A y BC. 

Brlntshiipe 

Jal a, $07 ; Carga en A la tinta blanca 

Call Ink ; Llama al cambio de tinta 

ld be, (shuipEos) ; Carga en BC la posición actual de la nave 
call At ; Llama a posicionar el cursor 

ld a, SHIP_GRAPH ; Carga en A el carácter de la nave 

rst $10 ; La pinta 

met 


Antes de dejar el archivo Print.asm, vamos a volver sobre la rutina que pinta el marco, en concreto a 
la parte en la que se hacemos un bucle para pintar los laterales. 


printFrame loop: 


ld a, $16 ; Carga en A el carácter de control de AT 
Sie $10 ¿ ho Mojacar 
ME a, b ; Carga en A la línea 


rst $10 2 a Moiara" 


ld a, $00 ; Carga en A la columna 

rst $10 g Ma Moira" 

ld a, $99 ; Carga en A el carácter lateral izquierdo 
ese Sa10) ; Lo pinta 

ld ey SL ; Carga en A el carácter de control de AT 
rst SO) g ko Motarar 

ld O ; Carga en A la línea 

rst $10 g ka Motarar 

ld Ep Alia ¿ Carga en A la columna 

rst SiL0) f ka Matar” 

ld a, $%a ; Carga en A el carácter lateral derecho 
rst S1L0) fdo jomiaita 

LALO) b ; Apunta Ba la línea siguiente 

ld E 19 ¿ Carga el valor de B en A 

cp $14 ; Comprueba si está en la línea veintiuno 
ía 162, rimas Logs. ¿ Si mo es así, sigue con el lauel 


Como podemos observar, las seis lineas siguientes a printFrame_loop posicionan el cursor para 
pintar en el lateral izquierdo, más adelante vemos otras seis líneas que hacen lo mismo para el 
lateral derecho. 


Yo estoy usando Visual Studio Code con la extensión 280 Assembly meter, y por eso sé que esta 
rutina, desde printFrame_loop hasta JR NZ, printFrame_loop, consume ciento sesenta y cinco 
ciclos de reloj y veintiocho bytes. 


Dado que ya hemos implementado una rutina que posiciona el cursor, acabamos de implementar At, 
vamos a sustituir estas líneas por llamadas a esa rutina. 


Lo primero es, justo encima de printFrame_loop, modificar la línea LD B, $01, y dejarla como 
sigue: 


ld b, COR Y - $01 


Recordad que con la rutina de la ROM las coordenadas están invertidas. Apuntamos B a la línea 
uno, LD B, COR_Y - $01. 


Borramos la primeras seis líneas justo debajo de printFrame_loop y las sustituimos por las 
siguientes: 


ld c, COR X - $01 


Cad At 


Unas líneas más abajo, borramos desde LD A, $16 hasta el RST $10 que hay justo encima de LD A, 
$9a, y sustituimos estas líneas por las siguientes: 


ld Cc, COR_X - MAX X 


call At 


Ahora vamos a sustituir desde INC B hasta JR NZ, printFrame_loop. 


dec b 

ld a, COR Y - MAX Y + $01 
sub b 

316 nz, printFrame loop 


De esta manera, el aspecto final de la parte modificada es el siguiente: 


ld dy COR Y = $01 ; Apunta Ba la línea 1 

printFrame loop: 

ld ACORTAR INS ; Apunta C a la columna 0 

Call At f Posilelioma Sl Euiasoj 

ld a, $99 ; Carga en A el carácter lateral izquierdo 
ese 310) 7 Mo) jombajeal 

ld Sy COR 2 = IMD ys ¿ata e a la columns Sil 

Call At ¿ Posiciona el cursor 

ld a, $%a ; Carga en A el carácter lateral derecho 
rst $10 fo) jObtiaizal 

dec b ; Decrementa B 

ld a, COR Y - MAX Y + $01 ¡; Apunta A a la línea 20 

sub b ; Resta la siguiente línea 

31í5 nz, printFrame loop ; Si el resultado no es cero, sigue con el bucl 


A simple vista, la rutina es más corta, consumiendo veintidós bytes y ciento once ciclos de reloj, 
pero cuidado, no es oro todo lo que reluce, a esos ciclos de reloj hay que sumarle los ciclos de reloj 
de la rutina At, que son sesenta y nueve (los bytes no los añadimos pues la rutina la vamos a usar 
desde más sitios). 


Una vez sumados todos los valores, la nueva rutina ocupa veintidós bytes y cada iteración del bucle 
consume ciento ochenta ciclos de reloj, quince más que la implementación anterior, aunque hemos 
ahorrado seis bytes. Además, la rutina de la ROM tarda menos que posicionarnos usando el código 
de control de AT. 


¿Qué hacemos? ¿Cómo lo dejamos? 


Dado que la rutina que pinta el borde no es crítica ya que solo lo pintamos al inicio de cada nivel, y 
cuatro ciclos de reloj no se van a notar, optamos por el ahorro de seis bytes, nos quedamos con la 
nueva implementación. 


Solo nos queda pintar la nave, vamos a Main.asm y justo debajo de CALL PrintInfoGame, 
añadimos la llamada a pintar la nave. 


saul Brinites hilo 


Compilamos, cargamos en el emulador y vemos los resultados. 


Movemos la nave 


La nave se tiene que mover como respuesta a alguna acción del jugador, en nuestro caso a la 
pulsación de tres teclas: Z para mover la nave hacia la izquierda, X para mover la nave hacia la 
derecha y V para disparar. 


Creamos el archivos Ctrl.asm e implementamos la rutina que lee el teclado y devuelve las teclas de 
control pulsadas. 


La rutina que vamos a implementar lee el teclado y devuelve en el registro D las teclas de control 
pulsadas, parecido a como se hizo en PorompomPong, poniendo a uno el bit cero si se ha pulsado la 
tecla Z, el bit uno se ha pulsado la tecla X y el bit dos si se ha pulsado la tecla V. 


CheckCtrl: 

ld d, $00 
ld a, Ste 
in a, ($fe) 


Primero ponemos D a cero, LD D, $00, cargamos en A la semifila Cs-V, LD A, $FE, y leemos el 
teclado, IN A, ($FE). 


checlCurirl_ Tires 
SaLte 304, E 


36 a, CiselsCicicll leóre 


Comprobamos si se ha pulsado la tecla V, BIT $04, A. En el caso de que no se haya pulsado, 
saltamos a comprobar si se ha pulsado la tecla para mover hacia la izquierda, JR NZ, 
checkCtrl_left. Si se ha pulsado, pone a uno el bit dos del registro D, marcando que se ha pulsado el 
disparo, SET $02, D. 


Cuando leemos del teclado, el estado de las teclas de la semifila leída está en el registro A, a uno las 
teclas que no se han pulsado y cero las que sí (el bit cero hace referencia a la tecla más alejada del 
centro del teclado y el cuatro a la más cercana). 


La instrucción BIT evalúa el estado del bit especificado ($04), del registro especificado (A), y 
según esté a cero o uno, activa o desactiva el flag Z. La instrucción SET pone a uno el bit 
especificado ($02), del registro especificado (D). La instrucción RES es la contraria a SET, pone el 
bit a cero. RES y SET no afectan al registro F. 


cacelCiriall. euros 


lola sol, a 
3jis má, Cnel iestojote 
set $00, d 


Comprobamos si se ha pulsado la tecla Z, BIT $01, A. En el caso de que no se haya pulsado, 
saltamos a comprobar si se ha pulsado la tecla para mover hacia la derecha, JR NZ, 
checkCtrl_right. Si se ha pulsado, pone a uno el bit cero del registro D, marcando que se ha pulsado 
izquierda, SET $00, D. 


checkCtrl_ right: 


bit $02, a 
ret nz 
set Sol, el 


Comprobamos si se ha pulsado la tecla X, BIT $02, A. En el caso de que no se haya pulsado, 
salimos. Si se ha pulsado, pone a uno el bit cero del registro D, marcando que se ha pulsado 
derecha, SET $00, D. 


checas sites 


Jl Ej el 
and $03 
sub $03 
Se nz 
ld ay el 
and $04 
ld al) El 


checkctlmenal 


LE 


Para finalizar, comprobamos si se ha pulsado al mismo tiempo izquierda y derecha, en cuyo caso 
desactivamos ambas. 


Cargamos el A el valor de D, LD A, D, nos quedamos el valor de los bits cero y uno, AND $03, y le 
restamos tres, SUB $03. Si el resultado no es cero salimos, RET NZ, ya que no estaban los dos bits 
a uno y no tenemos que hacer nada. 


Si no hemos salido, cargamos de nuevo el valor de D en A, LD A, D, nos quedamos solo con el 
valor del bit dos (disparo), AND $04, y cargamos el valor en D, LD D, A, desactivando de este 
modo la pulsación simultánea de izquierda y derecha. Finalmente, salimos, RET. 


La última etiqueta, checkCtrl_end, no es necesaria, pero la ponemos para clarificar cual es el final 
de la rutina. 


El aspecto final de la rutina es el siguiente: 


; Evalúa si se ha pulsado alguna de la teclas de dirección. 


; Las teclas de dirección son: 


E Z => Izquierda 

E ES => Derecha 

e V => Disparo 

; Retorna: D => Teclas pulsadas. 
E Babe 0 => Izquierda 
P Bite 1 => Derecha 
Bit 2 => Disparo 


; Altera el valor de los registros A y D 


, 


CheckCtrl: 

ld ely 500 ; Pone Dao0 

ld a, $fe ; Carga la semifila Cs-V en A 
in a, ($fe) ; Leee el teclado 


cieealCtill tires 


láLiz $04, a ; Evalúa si se ha pulsado la V 
JE mz, tlselkCirl lee $1 mo se laa pulsado, salia 
set SAA p Newbie el Tome 2 ce 1D 


cacelCiriz ll. lena s 


lali SOL, a ¿; Evalúa si se ha pulsado la Z 


ES má, cmscliCiial icigme Pp Sil mo se la ¡pulsacio, séellica 


set 500), el ¿; Activa el bit 0 de D 


EMSCk Clot 


Ibi $02, a ; Evalúa si se ha pulsado la X 
ret jala ; Si no se ha pulsado, sale 
set SOL, :l o ¡Naraia Sl Jose 1 ce 1D) 


check es ik 


ld al] El ¿ Carga el valor de Den A 

and SOS ; Se queda con el valor de los bits 0 y 1 
sub $03 ; Comprueba si están activos los dos bits 
ret nz ¿; Si el resultad no es cero, no están 


; activos los dos bits y sale 


ld a El ¿ Carga el valor de Den A 
and $04 £ Desactiva los lales (0 57 L 
ld ay El ¿ Carga el valor de A en D 


checikcitalfena:: 


LL 


Abrimos el archivo Main.asm y en cada iteración del bucle Main_loop vamos a llamar a la rutina 
que acabamos de implementar. Justo debajo de la etiqueta Main_loop añadimos la línea siguiente: 


adn CheckCtrl 


Un poco más abajo, en la parte donde tenemos los includes, añadimos el include para el archivo 
Ctrl.asm. 


include cultos mu 


Compilamos y comprobamos que compila bien; no hay errores. 


Cuando se mueva la nave, primero hay que borrarla de la posición actual y volver a pintarla en la 
nueva posición. 


En Const.asm, justo encima de las constantes que definimos para la nave, añadimos la siguiente 
constante: 


; Código de carácter del carácter en blanco 


WHITE GRAPH:EQU $9e 


Abrimos el archivo Print.asm y, al inicio del mismo, implementamos la rutina que borra la nave. 
Como esta rutina la vamos a usar también para borrar los enemigos y el disparo, recibe en BC las 
coordenadas del carácter que vamos a borrar. 


DeleteChar: 


Call At 


Como DeleteChar recibe en BC las coordenadas del carácter que vamos a borrar, el primer paso es 
posicionar el cursor, CALL At. 


¿Lol a, WHITE GRAPH 
Sita $10 
Ter 


Lo siguiente es cargar en A el carácter en banco, LD A, WHITE_GRAPH, y lo pintamos, RST $10, 
borrando así lo que hubiera pintado en esas coordenadas. 


El aspecto final de la rutina es el siguiente: 


; Borra un carácter de la pantalla 


; Entrada: BC -> Coordenadas Y/X del carácter 
; Altera el valor de los resgistros AF 


, 


DeleteChar: 

Call At ; Llama a posicionar el cursor 

ld a, WHITE _GRAPH ; Carga en A el carácter de blanco 
Esc SaL(0) ; Lo pinta y borra la nave 

met 


Para probar que funciona, abrimos Main.asm y, justo debajo de CALL CheckCtrl, añadimos las 
líneas siguientes: 


Lal be, ishuiprEos) 
exaiial DeleteChar 
cadlll PrintShip 


Con estas líneas borramos y pintamos la nave en cada iteración de Main_loop. Si compilamos y 
cargamos en el emulador, veremos que la nave parpadea constantemente, señal de que el borrado de 
la nave funciona. 


Ahora vamos a mover la nave. Creamos un nuevo archivo, Game.asm, dónde empezamos por 
implementar la rutina que cambia la posición de la nave y la pinta, esta rutina recibe en el registro D 
el estado de los controles (antes de continuar añadimos en la sección de includes de Main.asm el 
archivo Game.asm). 


MoveShip: 


ld bc, (shipPos) 
bit SQL, Cl 
3jie nz, moveShip right 


Cargamos la posición actual de la nave en BC, LD BC, (shipPos), comprobamos si se ha pulsado el 
control derecha, BIT $01, D, en cuyo caso saltamos a la parte que controla el movimiento hacia la 
derecha, JR NZ, moveShip_right. 


I9aLíe $00, d 


ret Za, 


Comprobamos si se ha pulsado el control izquierda, BIT $00, D, y si no se ha pulsado salimos, RET 
Z. 


moveShip left: 

ld ay Sima MOR 1h SOñ 
sub e 

mea Z 

Call DeleteChar 

inc E 

JLo! (ShipPos), be 

31é moveShip print 


Si se pulsado el control izquierda, comprobamos si podemos mover la nave. Cargamos en A el tope 
al que se puede mover la nave hacia la izquierda, LD A, SHIP_TOP_L + $01, y le restamos la 
columna actual de la posición de la nave, SUB C. Si el resultado es cero, la nave ya está en el tope y 
no se puede mover más hacia la derecha, así que salimos, RET Z. 


Si no hemos salido, borramos la nave de la posición actual, CALL DeleteChar, incrementamos C 
para apuntar a la columna justo a la izquierda de la posición actual, INC C, actualizamos en 
memoria la nueva posición de la nave, LD (shipPos), BC, y saltamos al final de la rutina, jr 
moveShip_print. 


La rutina que controla el movimiento de la nave hacia la derecha es prácticamente igual a la que 
controla el movimiento hacia la izquierda, por lo que solo vamos a marcar y explicar los cambios. 


moveShip right: 


ld SETE TO DAR ES Ol ; ¡CAMBIO! 
sub S 

Ste z 

ce4Ll DeleteChar 

dec E 7 ¡CAMBIO! 


ld (Sul), 196 


Xet 


Cargamos en A el tope al que se puede mover la nave hacia la derecha, LD A, SHIP_TOP_R. 
Decrementamos C para apuntar a la columna justo a la derecha de la posición actual, DEC C. 


El aspecto final de la rutina es el siguiente: 


¿; Mueve la nave 


¿ Entrada: D-> Estado de los controles 
; Altera el valor de los registros AF y BC 


, 


MoveShip: 

ld bc, (shipPos) ; Carga la posición actual de la nave en BC 

¡9aLiE SO, el ; Comprueba si el control derecha viene activo 
3 0, MOVES miusioe ¿la cuyo caso, seule 

bit 500, el ; Comprueba si el control izquierda viene activo 
ret za ; Si no es así, sale 


moveShip left: 


ld a, SHIP_TOP_ L + $01 ; Carga en A el tope para la nave por la izquierda 
sub e ; Le resta la columna actual de la nave 

ret z ¿ Si es la misma columna, sale 

eau DeleteChar ; Borra la nave de la posición actual 

LO e ; Apunta C a la culumna a la izquierda a la actual 
ld (Silos), 198 ; Actualiza la posición de la nave 

Es moveShip print ¿ Seltea al fine es la smesaa 


moveShip right: 


JLiGl a, SHIP TOP R + $01 ; Carga en A el tope para la nave por la derecha 
sub e ; Le resta la columna actual de la nave 

ret z ¿ Si es la misma columna, sale 

Call DeleteChar ; Borra la nave de la posición actual 

dec e ; Apunta C a la culumna a la derecha a la actual 
ld (Siaualos)., 19 ; Actualiza la posición de la nave 


moveShip print: 


saul PrintShip ; Pintamos la nave 


Fer 


Antes de continuar, recordemos que anteriormente comentamos que At alteraba el valor de los 
resgistros BC y AF pero que no nos afectaba. Ahora que At se llama desde varios puntos, el cambio 
del registro BC si que nos afecta. La solución es tan sencilla como añadir a At PUSH BC y POP BC 
para preservar y recuperar el valor de BC, aunque vamos a hacer otra implementación y de paso 
vamos a ahorrar bytes y ciclos de reloj. 


La nueva implementación de At queda de la siguiente manera: 


; Posiciona el cursor en las coordenadas especificadas. 


; Entrada: B = Coordenada Y (24 a 3). 


8 C = Coordenada X (32 a 1). 


; Altera el valor de los registros AF 


At 

push bc ; Preservamos el valor de BC 

exx ¿; Preservamos el valor de BC, DE y HL 
pop be ; Recuperamos el valor de BC 

Call $0a23 ; Llama a la rutina de la ROM 

exx ; Recuperamos el valor de BC, DE y HL 
CE 


Preservamos el valor de BC que es donde están las coordenadas, PUSH BC, preservamos el valor 
de los registros BC, DE y HL intercambiando su valor con los de los registros alternativos, EXX, 
recuperamos el valor de BC (coordenadas) de la pila, POP BC, y llamamos a la rutina de la ROM 
que posiciona el cursor, CALL $0A23. 


Llegados a este punto, el valor de BC, DE y HL ha cambiado, lo recuperamo desde los registros 
alternativos, EXX, y salimos, RET. 


La rutina ahora ocupa ocho bytes y tarda cincuenta y seis ciclos de reloj en ejecutarse, frente a los 
diez bytes y noventa ciclos de reloj que ocuparía usando la pila para los tres registros. 


Es hora de comprobar si se mueve la nave, volvemos a Main.asm y sustituimos las líneas que 
hemos añadido antes: 


ld bc, (shipPos) 
adi DeleteShip 
exa l PrintShip 


por: 


Call MoveShip 


Compilamos, cargamos en el emulador y vemos los resultados. 


La nave se mueve tanto a izquierda como a derecha, pero volvemos a tener el mismo problema que 
tuvimos en PorompomPong, se mueve extremadamente rápido, más rápido que las palas de 
Porompompong, ya que las palas se movían píxel a píxel y la nave se mueve carácter a carácter. 


Podríamos solucionarlo igual que hicimos entonces, no moviendo la nave en cada iteración del 
bucle, pero dado que vamos a usar las interrupciones para más cosas, lo vamos a hacer a través de 
ellas y así vemos algo que no vimos en PorompomPong. 


Conclusión 


Ya tenemos la nave en el área de juego y la movemos, pero hemos observado un problema que ya 
tuvimos en PorompomPong, se mueve extremadamente rápido. 


En el próximo capítulo solucionaremos esto con las interrupciones e implementaremos la parte del 
disparo. 


0x05 Interrupciones y disparo 


En este capítulo vamos a implementar el manejo de las interrupciones; si queréis saber más sobre 
ellas os recomiendo que leáis el capítulo dedicado a la mismas en el curso de Compiler Software, y 
la forma de implementarlas para el modelo 16K. 


El ZX Spectrum genera un total de cincuenta interrupciones por segundo en sistemas PAL, y 
sesenta en sistemas NTSC. 


Creamos la carpeta Paso05 y copiamos desde la carpeta Paso04 los archivos Const.asm, Ctrl.asm, 
Game.asm, Graph.asm, Main.asm, Print.asm y Var.asm. 


Antes de continuar comprobamos cuánto ocupa nuestro programa, veremos que ronda los mil 
seiscientos bytes. 


Interrupciones 


La rutina que se ejecuta cuando se genera una interrupción la vamos a implementar en el archivo 
Int.asm, así que lo creamos. 


Siguiendo lo explicado en el curso de Compiler Software, vamos a cargar $28 (40) en el registro 1 y 
nuestra rutina en la dirección $7e5c (32348), con lo que dejamos cuatrocientos diecinueve bytes 
para la rutina. Teniendo en cuenta que el programa lo cargamos en $5dad (23981), nos quedan ocho 
mil trescientos sesenta y siete bytes para nuestro juego. 


Abrimos el archivo Main.asm y, justo antes de Main_loop, añadimos las líneas para preparar las 
interrupciones. 


di 

ld a, $28 
ld SL a 
im 2 

ei 


Deshabilitamos las interrupciones, DI, cargamos $28 (40) en el registro A, LD A, $28, y cargamos 
A en el registro I, LD I, A. Cambiamos al modo de interrupción a dos, IM 2, y activamos las 
interrupciones, El. 


La rutina la vamos a implementar en el archivo Int.asm, de manera que lo abrimos y añadimos las 
líneas siguientes: 


org $Te5c 
Sie 

push hl 
push de 
push bc 
push af 


Cargamos la rutina Isr en la dirección $7E5C (32348), ORG $7E5C y preservamos el valor de HL, 
DE, BC y AF, PUSH HL, PUSH DE, PUSH BC, PUSH AF. 


De momento no hacemos nada más y salimos. 


segende 

pop af 
pop be 
pop de 
pop hl 
ei 

reti 


Recuperamos el valor de AF, BC, DE y HL, POP AF, POP BC, POP DE, POP HL, activamos las 
interrupciones, El, y salimos, RETI. 


Ahora vamos a Main.asm y, al final, justo antes de END Main, incluímos el archivo Int.asm. 


Compilamos, cargamos en el emulador y probamos. Aparentemente no pasa nada, pero ¿qué pasa si 
comprobamos lo que ocupa ahora nuestro programa? Pues que ocupa la friolera de más de nueve 
mil bytes. ¿Cómo es esto posible? Al cargar la rutina en la dirección $7E5C, PASMO rellena con 
ceros todo el espacio desde dónde acababa el programa anteriormente hasta dónde acaba ahora, por 
eso ocupa tanto. Si cargamos en un emulador no suele importar, la carga la podemos hacer 
inmediata, pero en un ZX Spectrum real estamos añadiendo tiempo de carga innecesariamente. 


Compilamos en múltiples ficheros 


Para evitar que nuestro programa crezca innecesariamente, vamos a compilar por separado el 
archivo Int.asm y el resto, y también vamos a prescindir del cargador que nos genera PASMO y 
vamos a hacer el nuestro propio. 


Creación del cargador 


Desde el emulador vamos a generar un cargador BASIC personalizado, que vamos a grabar como el 
archivo Cargador.tap. El código del cargador es el siguiente: 


10 CLEAR 23980 


20 LOAD ““CODE 


30 LOAD ““CODE 32348 


40 RANDOMIZE USR 23981 


Grabamos nuestro cargador con la siguiente instrucción: 


SAVE “BATALLAESP” LINE 10 


De esta manera, al cargar el programa, se auto ejecuta en la línea diez. 


Compilación en varios ficheros 


Vamos a compilar por separado el archivo Int.asm, generando el archivo Int.tap, y el resto del 
programa generando el archivo Marciano.tap. Por último, vamos a concatenar los ficheros 
Cargador.tap, Marciano.tap e Int.tap en el fichero BatallaEspacial.tap. 


Dado que realizar estas operaciones cada vez que compilemos y queramos ver los resultados es 
tedioso, vamos a crear un script; para los que uséis Windows, cread en la carpeta Paso05 el archivo 
make.bat, para los que usamos Linux, ejecutamos desde la línea de comandos: 


touch make 


Luego damos permisos de ejecución. 


chmod +x make 


Antes de seguir, abrimos el archivo Main.asm y borramos, casi al final, el include del archivo 
Int.asm. 


Y ahora podemos editar el archivo make o make.bat. Las dos primeras líneas son comunes tanto en 
Windows como en Linux. 


pasmo --name Marciano --tap Main.asm Marciano.tap --public 


pasmo -=-name Int --tap Int.asm Int.tap 


Primero compilamos el programa y luego compilamos el archivo Int.asm y generamos el arhivo 
Int.tap. Observad que en lugar de --tapbas hemos puesto —tap, pues el cargador BASIC lo hemos 
hecho a mano. 


Por último, combinamos Cargador.tap, Marciano.tap e Int.tap en BatallaEspacial.tap. 


Para los que usamos Linux, añadimos la línea siguiente al final del archivo make: 


cat Cargador.tap Marciano.tap Int.tap > BatallaEspacial.tap 


Para los que usáis Windows, la línea que tenéis que añadir es la siguiente: 


copy Cargador.tap+Marciano.tap+Int.tap BatallaEspacial.tap 


A partir de este momento, la manera de compilar será ejecutando make o make.bat, y en el 
emulador cargaremos el archivo BatallaEspacial.tap. 


Compilamos, cargamos en el emulador y vemos que todo sigue igual, pero el tamaño de 
BatallaEspacial.tap esta muy por debajo de nueve mil bytes. 


Ralentizamos la nave 


Vimos en la entrega anterior que la nave se movía muy rápido, para solucionar esta cuestión vamos 
a usar las interrupciones para mover la nave un máximo de cincuenta veces por segundo (en 
sistemas PAL, sesenta en NTSC), es decir, vamos a mover la nave cuándo salte la interrupción. 


Abrimos el archivo Var.asm y al inicio del mismo añadimos lo siguiente: 


?; Indicadores 


; Bit 0 -> se debe mover la nave 0 = No, 1 = Si 


Volvemos a Int.asm y tras PUSH AF añadimos las líneas siguientes: 


la aos 


set $00, (hl) 


Cargamos en HL la dirección de memoria de flags, LD HL, flags, y ponemos el bit cero a uno, SET 
$00, (HL). 


Ahora vamos al archivo Game.asm y justo debajo de la etiqueta MoveShip, añadimos las líneas 
siguientes: 


Jal Il” Ellas ; Cargamos la dirección de memoria de flags en HL 
lat SO0, (al) ; Comprueba si el bit 0 está activo 

ret Z ; Si no es así, sale 

res 5007 (ad) ; Desactiva el bit 0 de flags 


Cargamos en HL la dirección de memoria de flags, LD HL, flags, comprobamos si hay que mover 
la nave, BIT $00, (HL), y si no es así salimos, RET Z. Si hay que mover la nave ponemos el bit 
cero a cero, SET $00, (HL), de esta manera no volveremos a mover la nave hasta que salte una 
interrupción y vuelva a poner a uno el bit cero de flags. 


Esto que hemos implementado hará que nuestra nave se mueva cincuenta veces por segundo (o 
sesenta, según el sistema), así que compilamos y ... 


Efectivamente, tenemos errores de compilación. 
ERROR on line 10 of file Int.asm 
ERROR: Symbol 'flags' is undefined 


Hasta ahora, en el archivo Main.asm incluíamos todos los archivos .asm que tenemos, pero hemos 
quitado el include del archivo Int.asm para compilarlo por separado, por lo que en Int.asm no se 
conoce la etiqueta flags. La solución es sencilla, en Int.asm hay que sustituir LD HL, flags por LD 
HL, direccionMemoria. 


Echemos un vistazo a la línea que usamos para compilar. 


pasmo --name Marciano --tap Main.asm Marciano.tap --public 


El último parámetro, --public, genera un fichero con ese nombre donde podemos ver cada una de 
las etiquetas de nuestro programa, en que dirección de memoria se encuentran. En mi caso, flags 


está en la dirección de memoria $5dee, por lo que solo hay que ir a Int.asm y sustituir LD HL, flags 
por LD HL, $5DEE. 


Ahora sí, compilamos, cargamos en el emulador y vemos que la nave se mueve más lenta, pero 
seguimos teniendo un problema; poned una instrucción NOP al inicio de Main.asm, justo antes de 
la etiqueta Main. 


Compilad y veréis que compila bien, cargad en el emulador y veréis que ha dejado de funcionar. Si 
ahora vais a --public, veréis que la etiqueta flags está en la dirección $5DEF, sin embargo en el 
archivo Int.asm el valor que se carga en HL es $5DEE. Cada vez que modifiquemos algo de código, 
es muy probable que la dirección de memoria de flags cambie, así que tenemos que asegurarnos de 
cambiarla también en Int.asm. 


Para evitar que cambie la dirección de memoria de flags, vamos a abrir el archivo Var.asm, vamos a 
cortar la declaración de flags y la vamos a pegar al inicio del archivo Main.asm, justo debajo de 
ORG $5DAD, de esta manera nos aseguramos que flags siempre esté en la dirección de memoria 
$5DAD); no olvidéis sustituir S$5DEE por $5DAD en el archivo Int.asm. 


Compilamos, cargamos en el emulador y todo vuelve a funcionar, pero cuidado, funciona porque 
hemos inicializado flags a cero, que es el código de la instrucción NOP, que lo que hace es tardar 
cuatro ciclos de reloj en ejecutarse, nada más. Si la iniciáramos con otro valor, por ejemplo $C09, el 
programa nada más ejecutarse volvería al BASIC, ya que $C9 es RET, probad y veréis. 


Bytes: Marciano 
Bytes: Int 


B OK, 40: 1 


Z 


Esto tiene fácil solución, antes de la etiqueta flags, añadimos JR Main, aunque dado que solo 
vamos a necesitar la etiqueta flags y la iniciamos a cero, no tenemos problema, pero tened cuidado 
con esto. 


No es necesario añadir JR Main, En caso de añadirlo, la dirección de flags cambia. 


Implementamos el disparo 


Igual que hicimos con la nave, vamos a incluir las constantes necesarias para el manejo del disparo 
en el archivo Const.asm. 


; Código de carácter del disparo y tope 


FIRE GRAPH: EQU $91 


FIRE_TOP_T: EQU COR Y 


De igual manera, en el archivo Var.asm vamos a añadir una etiqueta para guardar la posición actual 
del disparo. 


; Disparo 
firePos: 


dw $0000 


En Print.asm vamos a implementar la rutina que pinta el disparo. 


PrintFire: 
ld OZ 
¡AA Ink 


Cargamos en A el color de tinta rojo, LD A, $02, y llamamos a cambiar la tinta, CALL Ink. 


ld bc, (firePos) 


adi At 


Cargamos en BC la posición actual del disparo, LD BC, (firePos), y llamamos a posicionar el 
cursor, CALL At. 


Jal a, FIRE GRAPH 
rst $10 
LE 


Cargamos en A el código de carácter del disparo, LD A, FIRE_GRAPH, lo pintamos, RST $10, y 
salimos, RET. 


El aspecto final de la rutina es el siguiente: 


; Pinta el disparo en la posición actual. 


; Altera el valor de los registros AF y BC. 


, 


PBrantrltcek 
ld a, $02 ; Carga en A la tinta roja 
cani l Ink ; Llama al cambio de tinta 


ld bc, (firePos) ; Carga en BC la posición actual del disparo 


exadll At ; Llama a posicionar el cursor 


Jl a, FIRE _GRAPH ; Carga en A el carácter del fuego 
Sii $10 ; Lo pinta 
ret 


Implementamos en Game.asm la rutina que mueve el disparo. 


MoveFire: 

la hl, flags 

Sale $01, (h1) 

36 ¡027 MO NEIAES 101eyy 
lab 02, el 

Sa z 

set $01, (h1) 

ld bc, (shipPos) 
inc h 

3118 moveFire print 


Cargamos la dirección de memoria de flags en HL, LD HL, flags, comprobamos si el bit uno 
(disparo) está activo, BIT $01, (HL), y de ser así saltamos, JR NZ, moveFire_try. Si el bit uno no 
esta activo, comprobamos si se ha pulsado el control disparo, BIT $02, D, y de no ser así salimos, 
RET Z. En caso de haberse pulsado, activamos el bit de disparo en flags, SET $01, (HL), cargamos 
la posición actual de la nave en BC, LD BC, (shipPos), apuntamos a la línea superior, INC B, y 
saltamos a pintarlo, JR moveFire_print. 


moveFire try: 

ld bc, (firePos) 

sal DeleteChar 

TS b 

ld a, FIRE_TOP_T 

sub b 

5)i6 nz, moveFire print 
res $01, (h1) 

SE 


Si el disparo estaba activo, cargamos la posición del disparo en BC, LD BC, (firePos), borramos el 
disparo, CALL DeleteChar, incrementamos B para apuntar a la línea superior, INC B, cargamos en 
A el tope superior del disparo, LD A, FIRE_TOP_T, y le restamos B, SUB B, si el resultado no es 
cero, todavía no hemos llegado al tope y saltamos, JR NZ, moveFire_print. Si hemos llegamos al 
tope desactivamos el disparo, RES $01, (HL), y salimos, RET. 


MOSS jONciiie E 


Jal (firePos), bc 
cad PrintFire 
Lee 


Si no hemos llegado al tope o acabamos de activar el disparo, actualizamos la posición actual del 
disparo, LD (firePos), BC, llamamos a pintar el disparo, CALL PrintFire, y salimos, RET. 


El aspecto final de la rutina es el siguiente: 


; Mueve el disparo 


; Entrada: D-> Estado de los controles 
; Altera el valor de los registros AF, BC y HL. 


, 


MoveFire: 

ld nl” Blas ; Carga en HL la dirección de memoria de flags 
Igalie SOL, (Umi) ; Evalúa si el bit del disparo está activo 

ES 0 MOVES ice ; Si está activo, salta 

¡Dátie 502, Cl ; Evalúa si el control de disparo está activo 
ret Z ¿ Si no está activo, sale 

set SOIL, (Uma) ; Activa el bit del disparo en flags 

ld le, (Sllaidlos) ; Carga la posición actual de la nave en HL 
NS b ; Apunta a la línea superior 

316 moveFire print ; Salta a pintar el diparo 


moveFire try: 


ld bc, (firePos) ; Carga en BC la posición actual del disparo 
ciamall DeleteChar ; Borra el disparo 

1LNE b ; Apunta Ba la línea superior 

ld Ely IMUÓsda Mol) Ur ; Carga en A el tope superior del disparo 

sub b ; Le restamos coordenada Y del disparo 

3136 0, MOVES ¡tdo ¿Si som cositalmios, mo ma lees al toys, Seltea 
res SO, (al) ; Desactiva el disparo 

mete 


moveFire print: 


ld (firePos), bc ; Actualiza la posición del disparo 


call PrintFire ; Pinta el disparo 


zer 


Es hora de probar el disparo, abrimos el achivo Main.asm y al inicio, en la declaración de flags, 
añadimos el comentario para el bit uno. 


; Bit 1 -> el disparo está activo 0 = No, 1 = Sí 


Localizamos la etiqueta Main_loop, y entre las líneas CALL CheckCtrl y CALL MoveShip 
añadimos la llamada al movimiento del disparo. 


cali MoveFire 


Compilamos, cargamos en el emulador y vemos los resultados. 


En la imagen no se aprecia, pero en el emulador podemos ver que parece que el disparo realiza 
ráfagas, y si dejamos el disparo pulsado es como si no parase de disparar, es un efecto óptico debido 
a que movemos el disparo más deprisa de lo que la ULA refresca la pantalla, lo vamos a dejar así 
para que parezca que disparamos varias veces a un mismo tiempo. 


Conclusión 


Hemos empezado a trabajar con interrupciones, temporizado el movimiento de la nave e 
implementado el disparo, además de compilar el programa en varios ficheros y personalizar el 
cargador. 


En el próximo capítulo introduciremos los enemigos. 


0x06 Enemigos 


En este capítulo vamos a incluir los enemigos. Lo primero es crear la carpeta Paso06, copiamos 
desde la carpeta Paso05 los archivos Cargador.tap, Const.asm, Ctrl.asm, Game.asm, Graph.asm, 
Int.asm, Main.asm, Print.asm, Var.asm y make, o make.bat si estáis trabajando en Windows. 


Definimos los enemigos 


Los enemigos son elementos móviles, y como tales necesitamos saber la posición actual y la inicial. 
En total vamos a tener un máximo de veinte enemigos en pantalla, y vamos a usar dos bytes para 
especificar la posición actual del enemigo y alguna configuración más que nos va a hacer falta. 


Abrimos el archivo Var.asm y tras la definición del marco de la pantalla, añadimos la configuración 
de los enemigos. 


; Configuración de los enemigos 


; 2 bytes por enemigo. 


By Tell Byte 2 

¿ Bit 0-4: BOSCO Bit 0-4: Posición X 

BO Libre Dalia 58 Libre 

p Bilia 0 Libre BUM Dirección X 0 = Left 1 = Right 
o dali 7£8 Nro 1/10) Bue Te Dirección Y 0 = Up 1 = Down 
enemiesConfig: 


dla $90, Sell, 99, Sem, $96, Sell, $908, Sao, $907 Hen 
dla $98, $94, $93, $97, 59857 SUL, $93, Ey IS, SOS 
dla $90, Sell, 290), Sem; $590, Sell, $90, Sado, 590, Ses 
dla Hecl, Sl, Sec, 597, Sel, SYL, Sec, llo, HUel,) SOS 
enemiesConfiglIni: 

dl $96, Sel, $96, Se, $9, Sel, $90, Bda, $96, SES 
dla $98, Bl, $97 8977 $98, SUL, $93, Sa, 693, SOS 
dlo 290), Sel, $90, Se, $90, Sell, $90, Bda, $90, SES 


dla HS, $9, EU, $977 Sel, SL, fe, Stlo, Bel, $9 


enemiesConfigEnd: 


En el primer byte vamos a tener la coordenada Y, bits del cero al cuatro, y si el enemigo está o no 
activo, bit siete. En el segundo byte vamos a tener la coordenada X, bits del cero al cuatro, la 
dirección horizontal, bit seis, y la dirección vertical, bit siete. 


Según los bits seis y siete del segundo byte, la dirección del enemigo es: 
+  00b $00 Izquierda / Arriba 
+  01b $01 Izquierda / Abajo 
+ —10b $02 Derecha / Arriba 
+  11b $03 Derecha / Abajo 


Basándonos en esto, vamos a añadir la definición de los gráficos de los enemigos. Justo antes de 
enemiesConfig añadimos dicha definición. 


; Gráficos de los enemigos 


¿00 Uo=I4Sitie 
p OU U9=Rcjae 
¿+ 10 Down-Left 
ADO Ri 


enemiesGraph: 


cla. Sen, Sad, Sail, Sa2 


Si buscamos los UDG de los enemigos, veremos que todo concuerda. 


Volviendo a la definición de los enemigos, vamos a tener un total de veinte enemigos, repartidos en 
cuatro filas con cinco enemigos por fila. 


Vamos a ver la definición de los enemigos de izquierda a derecha y de arriba a abajo; recordad que 
trabajamos con las coordenadas invertidas. 


Hexadecimal Binario Definición 


$96, $dd 10010110, 11011101 | Activo 

Línea 22 
Abajo/Derecha 
Columna 29 


$96, $d7 10010110, 11010111 | Activo 

Línea 22 
Abajo/Derecha 
Columna 23 


$96, $d1 10010110, 11010001 |Activo 

Línea 22 
Línea/Derecha 
Columna 17 


$96, $cb 10010110, 11001011 | Activo 

Línea 22 
Abajo/Derecha 
Columna 11 


Hexadecimal 


Binario 


Definición 


$96, $c5 


10010110, 11000101 


Activo 

Línea 22 
Abajo/Derecha 
Columna 5 


$93, $9d 


10010011, 10011101 


Activo 

Línea 19 
Abajo/Izquierda 
Columna 29 


$93, $97 


10010011, 10010111 


Activo 

Línea 19 
Abajo/Izquierda 
Columna 23 


$93, $91 


10010011, 10010001 


Activo 

Línea 19 
Abajo/Izquierda 
Columna 17 


$93, $8b 


10010011, 10001011 


Activo 

Línea 19 
Abajo/Izquierda 
Columna 11 


$93, $85 


10010011, 10000101 


Activo 

Línea 19 
Abajo/Izquierda 
Columna 5 


$90, $dd 


10010000, 11011101 


Activo 

Línea 16 
Abajo/Derecha 
Columna 29 


$90, $d7 


10010000, 11010111 


Activo 

Línea 16 
Abajo/Derecha 
Columna 23 


$90, $d1 


10010000, 11010001 


Activo 

Línea 16 
Abajo/Derecha 
Columna 17 


$90, $cb 


10010000, 11001011 


Activo 

Línea 16 
Abajo/Derecha 
Columna 11 


$90, $c5 


10010000, 11000101 


Activo 

Línea 16 
Abajo/Derecha 
Columna 5 


Hexadecimal Binario Definición 


$8d, $9d 10001101, 10011101 |Activo 

Línea 13 
Abajo/Izquierda 
Columna 29 


$8d, $97 10001101, 10010111 |Activo 

Línea 13 
Abajo/Izquierda 
Columna 23 


$8d, $91 10001101, 10010001 | Activo 

Línea 13 
Abajo/Izquierda 
Columna 17 


$8d, $8b 10001101, 10001011 |Activo 

Línea 13 
Abajo/Izquierda 
Columna 11 


$8d, $85 10001101, 10000101 |Activo 

Línea 13 
Abajo/Izquierda 
Columna 5 


Una vez definidos los gráficos de los enemigos y su configuración, podemos proceder a pintarlos. 


Pintamos los enemigos 


La rutina que pinta los enemigos la vamos a implementar en Print.asm. 


PrintEnemies: 

ld a, $06 

can Ink 

ges! h1l, enemiesConfig 
ld CSI. 


Cargamos en A la tinta amarilla, LD A, $06, cambiamos la tinta, CALL Ink, cargamos la dirección 
de memoria de los enemigos en HL, LD HL, enemiesConfig, y el número total de enemigos en D, 
LD D, $14, veinte enemigos. 


printEnemies loop: 
I9aLíe $07, (h1) 
JE Zz, printEnemies endLoop 


Evaluamos si el enemigo está activo, BIT $07, (HL), y de no estarlo saltamos, JR Z, 
printEnemies_endLoop. 


push hl 


JLo! a, (h1) 
and Salie 
ld ¡9 El 


Preservamos el valor de HL, PUSH HL, cargamos el primer byte de la configuración del enemigo 
en A, LD A, (HL), nos quedamos con la coordenada Y, AND $1F, y la cargamos en B, LD B, A. 


inc hl 

ld a, (h1) 
and sit 

ld Sy El 
canti At 


Apuntamos HL al segundo byte de la configuración del enemigo, INC HL, cargamos el valor en A, 
LD A, (HL), nos quedamos con la coordenada X, AND $1F, cargamos el valor en C, LD C, A, y 
posicionamos el cursor, CALL At. 


ld a, (h1l) 
and $c0 
lea 

rlca 

ld c, a 
ld b, $00 


Cargamos el segundo byte de la configuración del enemigo en A, LD A, (HL), nos quedamos con 
los bits de dirección, AND $c0, pasamos el valor a los bits cero y uno, RLCA RLCA, cargamos el 
valor en C, LD C, A, y ponemos B a cero, LD B, $00. 


Te h1, enemiesGraph 
add HU 

ld a, (hl) 

rst $10 


Cargamos en HL la dirección de memoria en la que definimos los caracteres para los enemigos, LD 
HL, enemiesGraph, le sumamos la dirección (izquierda, arriba ...) del enemigo, ADD HL, BC, 
cargamos en A el carácter del enemigo que hay que pintar, LD A, (HL), y lo pintamos, RST $10. 


pop hl 


printEnemies endLoop: 


inc hl 


1 nz, printEnemies loop 


Lee 


Recuperamos el valor de HL, POP HL, apuntamos HL al primer byte de la configuración del 
siguiente enemigo, INC HL INC HL, decrementamos D, DEC D, y seguimos hasta que D sea cero 
y hayamos recorrido todos los enemigos. Finalmente, salimos, RET. 


El aspecto final de la rutina es el siguiente: 


; Pinta los enemigos 


; Altera el valor de los registros AF, BC, D y HL. 


, 


PrintEnemies: 


ld a, $06 ; Carga en A la tinta amarilla 
senil Ink ¿ Cambola la tlmura 
ld h1l, enemiesConfig ; Carga la dirección de la configuración 


; del enemigo en HL 


ld el, BA ; Carga en D 20 enemigos 


printEnemies loop: 


Iatie SOT Una) ; Evalúa si el enemigo está activo 

Jn Z, printEnemies endloop ; Si no lo está, salta 

push hl ; Preserva el valor de HL 

LR O E ; Carga el primer byte de configuración en A 
and Sale ¿ Se queda con la coordenda Y 

Je! ly El ; La carga en B 

O hl ; Apunta HL al segundo byte 

ml a LO ¿; Carga el valor en A 

and Salse ; Se queda con la coordenada X 

ld , El ERC aga tene 


Call At ; Posiciona el cursor 


ld 
and 
rlca 
rlca 
ld 


ld 


ld 
add 
ld 


ESE 


pop 


print! 


aaa 


LO 


dec 


sé 


SE 


h1l, enemiesGraph 


MÁRDS 


a, (hl) 


$10 


16 


hl 


hl 


d 


Enemies endloop: 


nz, printEnemies loop 


Vuelve a cargar el segudo byte en A 
Se queda con la dirección (izquierda ...) 


Pone el valor en los bits 0 y 1 


Carga el valor en € 


Pone B a cero 


Carga en HL el carácter del gráfico del enemigo 


Le suma la dirección de enemigo (izquierda 
Carga en A el gráfico del enemigo 


Lo pinta 


Recupera el valor de HL 


Apunta HL al primer byte de la configuración 


del enemigo siguientes 


Decrementa D 


hasta que D sea O 


-) 


Para probar si funciona, vamos a ir a Main.asm y justo antes de Main_loop vamos a añadir las 


líneas siguientes: 


ld 


Cad 


adul 


a, $01 


LoadUdgsEnemies 


Print! 


Enemies 


Cargamos el nivel uno en A, LD A, $01, cargamos los gráficos de los enemigos del nivel uno en 


udgsExtension, CALL LoadUdgsEnemies, y pintamos los enemigos, CALL PrintEnemies. 


Compilamos, cargamos en el emulador y vemos los resultados. 


Movemos los enemigos 


Los enemigos no los vamos a mover en cada iteración del bucle, como hacemos con el disparo, los 
vamos a mover cada N interrupciones, por lo qué lo primero que vamos a hacer es añadir otro 
comentario en la etiqueta flag, al inicio de Main.asm. 


; Bit 2 -> se deben mover los enemigos 0 = 


No, 1 = Sí 


Lo siguiente es establecer los límites de la pantalla hasta dónde los enemigos pueden llegar; estos 
límites los vamos a establecer en Const.asm. 


; Topes de los 


ENEMY TOP T: 


ENEMY TOP _B: 


ENEMY TOP _L: 


NEMY_TOP_R: 


enemigos 


EQU COR Y 


EQU COR Y 


EQU COR_X 


EQU COR_X 


MIN_Y 
MAX Y + $01 
MIN_X 


MAX_X 


Los límites que hemos establecido son arriba, abajo, izquierda y derecha. 


Para que los enemigos se muevan cada N interrupciones, y como en flags vamos a usar un bit para 
indicar si se deben mover o no, vamos a ir al archivo Int.asm y vamos a activar dicho bit, para lo 
que añadimos la siguiente línea justo debajo de SET $00, (HL): 


Set 02 


(61) 


Ya tenemos todos listo para poder implementar en Game.asm la rutina que mueve los enemigos. 


MoveEnemies: 


Lal hl, flags 
bit $02, (h1) 
ee yA 

res $02, (h1) 


Cargamos en HL la dirección de memoria de flags, LD HL, flags, comprobamos si el bit de 
movimiento de los enemigos está activo, BIT $02, (HL), y si no está activo, salimos, RET Z. En el 
caso de estar activo, lo desactivamos para que no pase por aquí en la próxima iteración de 
Main_loop, RES $02, (HL). 


ld d, $14 


la h1l, enemiesConfig 


moveEnemies loop: 


IOJiLE $07, (h1) 


ES Zz, moveEnemies loopEnd 


Cargamos en D el número total de enemigos (veinte), LD D, $14, cargamos en HL la dirección de 
memoria de la configuración de los enemigos, LD HL, enemiesConfig, comprobamos si el enemigo 
está activo, BIT $07, (HL), y si no está activo saltamos al final del bucle, JR Z, 
moveEnemies_loopEnd. 


push hl 

Ji! a, (hl) 
and SLiE 

ld dy El 

ales hl 

ld a, (hl) 
and Sii 

ld Sy El 

Call DeleteChar 
pop hl 


Preservamos el valor de HL, PUSH HL, cargamos en A el primer byte de la configuración del 
enemigo, LD A, (HL), nos quedamos con la coordenada Y, AND $1F, y la cargamos en B, LD B, A. 


Apuntamos HL al segundo byte de la configuración del enemigo, INC HL, cargamos el valor en A, 
LD A, (HL), nos quedamos con la coordenada X, AND $1F, y la cargamos en C, LD C, A. 


Borramos el enemigo, CALL DeleteChar, y recuperamos el valor de HL, POP HL. 


ld 19) (mal) 


inc hl 


Cargamos el primer byte de la configuración del enemigo en B, LD B, (HL), apuntamos HL al 
segundo byte de la configuración, INC HL, y cargamos el valor en C, LD C, (HL). 


moveEnemies_X: 


ld aj e 

and sif 

alía S06, E 

5|12 nz, moveEnemies X right 


Cargamos el valor del segundo byte de la configuración del enemigo en A, LD A, C, y nos 
quedamos con la coordenada X, AND $1F. 


Comprobamos el bit de dirección horizontal del enemigo, BIT $06, C, si está a uno, el enemigo se 
desplaza hacia la derecha y salta, JR Z, moveEnemies_X_right. Si no ha saltado, el enemigo se 
mueve hacia la izquierda. 


moveEnemies X left: 


In a 

sub ENEMY TOP_L 

3/12 Zz, moveEnemies X leftChg 
iS e 

312 moveEnemies Y 


moveEnemies X leftChg: 


set S067 € 


y moveEnemies Y 


Incrementamos A para que apunte a la columna a la izquierda de la actual, INC A, restamos el tope 
por la izquierda, SUB ENEMY_TOP_L, y si el resultado es cero, ha llegado al tope y salta para 
cambiar la dirección, JR Z, moveEnemies_X_leftChg. 


Si no hay que cambiar la dirección, apunta C a la columna a la izquierda de la actual, INC C, y salta 
al movimiento vertical, JR moveEnemies_Y. 


Si hay que cambiar la dirección, activa el bit seis de C para poner dirección horizontal hacia la 
derecha, SET $06, C, y salta al movimiento vertical, JR moveEnemies_Y. 


Si el enemigo no se mueve hacia la izquierda, se mueve hacia la derecha. 


moveEnemies X right: 


dec a 


sub ENEMY TOP_R 


an Z, moveEnemies X rightChg 


es moveEnemies Y 


moveEnemies X rightChg: 


res 506, € 


Decrementamos A para que apunte a la columna a la derecha de la actual, DEC A, restamos el tope 
por la derecha, SUB ENEMY_TOP_R, y si el resultado es cero, ha llegado al tope y salta para 
cambiar la dirección, JR Z, moveEnemies_X_rightChg. 


Si no hay que cambiar la dirección, apunta C a la columna a la derecha de la actual, DEC C, y salta 
al movimiento vertical, JR moveEnemies_Y. 


Si hay que cambiar la dirección, desactiva el bit seis de C para poner dirección horizontal hacia la 
izquierda, RES $06, C, y empezamos con el movimiento vertical. 


moveEnemies Y: 

ld ay 19 

and Sala 

10 alie 507, E 

3)12 nz, moveEnemies Y down 


Cargamos en A el valor del primer byte de la configuración del enemigo, LD A, B, y nos quedamos 
con la coordenada Y, AND $1F. 


Comprobamos el bit siete de C para saber la dirección vertical del enemigo, BIT $07, C, y si está a 
uno el enemigo se mueve hacia abajo y salta, JR NZ, moveEnemies_Y_down. 


Si el bit está a cero, el enemigo se mueve hacia arriba. 


moveEnemies Y up: 


e a 

sub ENEMY TOP_T 

JE Zz, moveEnemies Y upChg 
inc b 

ES moveEnemies endMov 


moveEnemies Y upChg: 


52 moveEnemies endMov 


Incrementamos A para que apunte a la línea superior a la actual, INC A, restamos el tope por arriba, 
SUB ENEMY_TOP_T, y si el resultado es cero, hemos llegado al tope y saltamos para cambiar la 
dirección, JR Z, moveEnemies_Y_upChg. 


Si no hemos llegado al tope, incrementamos B para que apunte a la línea superior a la actual, INC 
B, y saltamos al final del bucle, JR moveEnemies_endMove. 


Si hay que cambiar la dirección, activamos el bit siete de C para cambiar la dirección hacia abajo, 
SET $07, C, y saltamos al final del bucle, JR moveEnemies_endMove. 


Si el enemigo no se mueve hacia arriba, se mueve hacia abajo. 


moveEnemies Y down: 


dec a 

sub ENEMY TOP_B 

3/12 Zz, moveEnemies Y downChg 
dec b 

ES moveEnemies endMov 


moveEnemies Y downChg: 


res SOT, E 


Decrementamos A para que apunte a la línea inferior a la actual, DEC A, restamos el tope por abajo, 
SUB ENEMY_TOP_B, y si el resultado es cero, hemos llegado al tope y saltamos para cambiar la 
dirección, JR Z, moveEnemies_ Y _downChg. 


Si no hemos llegado al tope, decrementamos B para que apunte a la línea inferior a la actual, DEC 
B, y saltamos al final del bucle, JR moveEnemies_endMove. 


Si hay que cambiar la dirección, desactivamos el bit siete de C para cambiar la dirección hacia 
arriba, RES $07, C. 


moveEnemies endMove: 


ld A E 
dec IL 
ld lo 


moveEnemies endloop: 


abiale hl 
aLine) hl 
asa d 
Ji nz, moveEnemies loop 


Actualizamos en memoria el segundo byte de la configuración del enemigo, LD (HL), C, 
apuntamos HL al primer byte, DEC HL, y actualizamos en memoria, LD (HL), B. 


Apuntamos HL al primer byte de la configuración del siguiente enemigo, INC HL, INC HL, 
decrementamos D, DEC D, y seguimos en el bucle hasta que D sea cero y hayamos recorrido los 
veinte enemigos, JR Z, moveEnemies_loop. 


moveEnemies end: 


cadil PrintEnemies 


LS 


Pintamos los enemigos en las nuevas posiciones, CALL PrintEnemies, y salimos, RET. 


Con esto, hemos implementado la rutina que mueve los enemigos, cuyo aspecto final es el 
siguiente: 


; Mueve los enemigos. 


; Altera el valor de lo registros AF, BC, D y HL. 


MoveEnemies: 


ld Ii” Elags ; Cargamos la dirección de memoria de flags en HL 
Igalie 5027 (mL) ; Comprueba si el bit 2 está activo 

ret Z ; Si no es así, sale 

res OL (18) ; Desactiva el bit 2 de flags 

ld (ely, BULA ; Carga en D el número total de enemigos (20) 

ld hl1, enemiesConfig ; Cara en HL la dirección de la configuración 


; de los enemigos 


moveEnemies loop: 


bit 5077 (Wal) ; Comprueba si el enemigo está activo 

3156 Z, MoveEnemies endLoop +; Si no lo está, salta a final del bucle 
push hl ¿; Preserva el valor de HL 

JLo! alp (WaJL) ; Carga en A el primer byte de la cofiguración 
and Sl ; Se queda con la coordenada Y 

Il EA, ¿ Carga el valor en B 

LO hl ; Apunta HL al segundo byte de la configuración 
dE a, (hl) ¿ Carga el valor en A 

and Silla ; Se queda con la coordeanda X 

ld ey a ; Carga el valor en € 


Call DeleteChar ; Borra el enemigo 


pop 


AO 


hl 
ls) (mal) 
hl 
ey (mL) 


Recupera el valor de HL 


Carga en B el primer byte de la configuración 


Apunta HL al segundo byte de la configuración 


Carga en C el segundo byte de la configuración 


E ; Carga en A el segundo byte de la configuración 
Silla ; Se queda con la coordeada X 

S06, E ; Evalúa la dirección horizontal del enemigo 

nz, moveEnemies X right ; Si está a uno, hacia la derecha, salta 


moveEnemies X left: 


3 


inc 


3 é 


ENEMY _TOP_L 


, 


Y 


Apunta A a la columna anterior 


Resta el tope por la izquierda 


Z, MoveEnemies X leftChg g 8Ll €s Csózo, ma llegado al tos, sallra 


moveEnemies Y 


moveEnemies X leftChg: 


moveEnemies Y 


moveEnemies X right: 


ES 


dec 


ajES 


movel 


movel 


ENEMY TOP_R 


, 


Apunta C a la columna anterior 


Salta al movimiento vertical 


Pone la dirección horizontal hacia la derecha 


Salta al movimiento vertical 


Apunta A a la columna posterior 


Resta el tope por la derecha 


Z, moveEnemies X rightChg ; Si es cero, ha llegado al tope, salta 


moveEnemies Y 


Enemies X rightChg: 


Enemies Y: 


, 


, 


, 


Apunta C a la columna posterior 


Salta al movimiento vertical 


Pone la dirección horizontal hacia la izquierda 


ld a, b ; 
and $1f 7 
bit $07, € ; 
as nz, moveEnemies Y down 


moveEnemies Y up: 


inc a ; 
sub ENEMY _TOP_T ; 
ES Z, moveEnemies Y upChg 
inc b ; 
35 moveEnemies endMove ; 


moveEnemies Y upChg: 


Enemies endMov 


moveEnemies Y down: 


dec a É 
sub ENEMY TOP B ; 
3116 Z, moveEnemies Y downChg É 
dec b É 
as moveEnemies endMove ; 


moveEnemies Y downChg: 


res 307, € 
moveEnemies endMov 
ld (MINAS 
dec hl 

ld (NAO 


moveEnemies endloop: 
aLiake hl 


ae hl 


dec (el 


Carga en A el primer byte de la configuración 


Se qued con la coordenda Y 


Evalúa la dirección vertical del enemigo 


; Si está a uno, hacia abajo, salta 


Apunta A a la línea anterior 
Resta el tope por arriba 
; Si es cero, ha llegado al tope, salta 


Apunta B a la línea posterior 


Salta al final del bucle 


Pone la dirección vertical hacia abajo 


Salta al final del bucle 


Apunta A a la línea posterior 
Resta el tope por abajo 
Si es cero, ha llegado al tope, salta 


Apunta B a la línea posterior 


Salta al final del bucle 


Pone la dirección vertical hacia arriba 


Actualiza el segundo byte de la configuración 
Apunta HL al primer byte de la configuración 


Actualiza 


1 primer byte de la configuración 


Aputa HL al primer byte de la configuración 
del siguiente enemigo 


Decrementa D 


js 


nz, moveEnemies loop ; Hasta que D sea cero (20 enemigos) 


moveEnemies_ end: 


cad 


nel 


PrintEnemies ; Pinta los enemigos 


Ha llegado el momento de ver como se mueven los enemigos. Abrimos el archivo Main.asm y en la 
etiqueta Main_loop, justo debajo de CALL MoveShip, añadimos la línea siguiente: 


cali 


MoveEnemies 


Compilamos, cargamos en el emulador y vemos los resultados. 


¿Qué tal? ¿Se mueven los enemigos? Sí, se mueven, pero van demasiado deprisa y el disparo se ha 
vuelto más lento. Vamos a ralentizar el movimiento de los enemigos, y lo vamos hacer desde la 
rutina de la interrupciones, así que vamos al archivo Int.asm. 


Vamos a hacer algo parecido a lo que hicimos en PorompomPong, vamos a añadir un contador al 
final del archivo para controlar cuando activamos el movimiento de los enemigos. 


count! 


Enemy: db 


$00 


Ahora entre las líneas SET $00, (HL) y SET $02, (HL) vamos a implementar el uso de este 


contador. 
La a, (countEnemy) 
inc a 
Ta (countEnemy), a 
sub $03 
JE Mz ES Eena! 
La (countEnemy), a 
set $02, (h1) 


Cargamos en A el valor del contador, LD A, (countEnemy), incrementamos A, INC A, y 
actualizamos el contador en memoria, LD (countEnemy), A. Restamos a A el valor que tiene que 
alcanzar el contador para activar el movimiento, SUB $03, y si no ha llegado salta al final de la 
rutina, JR NZ, Isr_end. 


Si ya ha alcanzado el valor, pone a cero el contador, LD (countEnemy), A, y activa el bit para 
mover los enemigos, SET $02, (HL). 


Compilamos, cargamos en el emulador y vemos que hemos recuperado la velocidad del disparo y 
que los enemigos se siguen moviendo rápido. 


Conclusión 


Ya tenemos en movimiento todos los elementos de nuestro juego. 


En el siguiente capítulo implementaremos la detección de colisiones, para poder matar a los 
enemigos y que ellos nos maten a nosotros, y poder ir cambiando de nivel, hasta un total de treinta. 


0x07 Colisiones y cambio de nivel 


En este capítulo vamos a incluir las colisiones del disparo con los enemigos, de los enemigos con la 
nave, y los cambios de nivel. Lo primero es crear la carpeta Paso07, copiamos desde la carpeta 
Paso06 los archivos Cargador.tap, Const.asm, Ctrl.asm, Game.asm, Graph.asm, Int.asm, Main.asm, 
Print.asm, Var.asm y make, o make.bat si estáis trabajando en Windows. 


Colisiones de los enemigos con el disparo 


Lo primero que vamos a implementar son las colisiones entre los enemigos y el disparo. Como 
recordaremos, en el primer byte de la configuración de cada enemigo, el bit siete nos dice si está 
activo o no, pudiendo con esto decidir si se pinta o no. 


La rutina que vamos a implementar va a comprobar si algún enemigo está en las mismas 
coordenadas que el disparo, y de ser así lo deshabilita. 


Implementamos la rutina al inicio de archivo Game.asm. 


CheckCrashFire: 
ls! a, (flags) 
and $02 

ICE Z 


Cargamos en A el valor de los flags, LD A, (flags), nos quedamos con el bit uno para comprobar si 
el disparo está activo, AND $02, y salimos si no lo está, RET Z. 


ld de, (firePos) 

la h1l, enemiesConfig 

ld kb, enemiesConfigEnd - enemiesConfiglni 
sra b 


Cargamos en DE las coordenadas del disparo, LD DE, (firePos), apuntamos HL a la configuración 
de los enemigos, LD HL, enemiesConfig, cargamos en B el número de bytes totales de la 
configuración de los enemigos, LD B, enemiesConfigEnd — enemiesConfigIni, y lo dividimos 
entre dos para calcular el número de enemigos, SRA B, ya que la configuración de cada enemigo 
ocupa dos bytes. 


SRA desplaza todos los bits hacia la derecha, el valor del bit cero lo pone en el acarreo y mantiene 
el valor del bit siete, para conservar el signo. SRA hace una división entera entre dos y dado que el 
número de enemigos que tenemos es par, nos vale. 


checkCrashFire loop: 


ld (A) 
inc lol 
bit 5077 E 


Ji z, CheckCrashFire endLoop 


Cargamos en A el primer byte de la configuración del enemigo, LD A, (HL), apuntamos HL al 
segundo byte de la configuración, INC HL, evaluamos si el enemigo está activo, BIT $07, A, y 
saltamos si no lo está, JR Z, checkCrashFire_endLoop. 


and Salsa 
cp da 
ji nz, CcheckCrashFire endLoop 


Si el enemigo está activo, nos quedamos con la coordenada Y, AND $1F, comparamos con la 
coordenada Y del disparo, CP D, y saltamos si no son la misma, JR NZ, 
checkCrashFire_endLoop. 


ld NS) 

and $1£ 

cp e 

3 í nz, CcheckCrashFire endLoop 


Cargamos en A el segundo byte de la configuración del enemigo, LD A, (HL), nos quedamos con la 
coordenada X, AND $1F, comparamos con la coordenada X del disparo, CP E, y saltamos si no son 
la misma. 


dec hl 

res $07, (h1) 
ld lo), Cl 

ld e, E 

sad DeleteChar 
met 


Si el disparo y el enemigo colisionan, apuntamos HL al primer byte de la configuración del 
enemigo, DEC HL, desactivamos el enemigo, RES $07, (HL), cargamos la coordenada Y del 
disparo en B, LD B, D, cargamos la coordenada X del disparo en C, LD C, E, borramos el disparo 
y/o enemigo, CALL DeleteChar, y salimos de la rutina, RET. 


checkCrashFire endLoop: 

inc hl 

djnz checkCrashFire loop 
SE 


Si el disparo y el enemigo no colisionan, apuntamos HL al byte primer byte de la configuración del 
siguiente enemigo, INC HL, y repetimos el bucle mientras B sea mayor que cero, DJNZ 
checkCrashFire_loop. Una vez finalizado el bucle, salimos de la rutina, RET. 


El aspecto final de la rutina es el siguiente: 


; Evalúa las colisiones del disparo con los enemigos. 


; Altera el valor de lo registros AF, BC, DE y HL. 


, 


CheckCrashFire: 
ld a, (flags) ; Carga los flags en A 
and $02 ; Evalúa si el disparo está activo 
ret % ¿ Si no está activo, sale 
ld de, (firePos) ; Carga en DE la posición del disparo 
Jl hl1, enemiesConfig ; Apunta HL a la definición del primer enemigo 
ld b, enemiesConfigEnd - enemiesConfiglni ; Carga en B el número de bytes 
; de la configuración de los enemigos 
sra b ; Lo divide entre dos, B = número d nemigos 


checkCrashFire loop: 


JLo! a, (h1) ; Carga en A la coordenada Y del enemigo 

ao ImdL ; Apunta HL a la coordenada X del enemigo 
bit $07, a ; Evalúa si el enemigo está activo 

316 z, CheckCrashFire endLoop ¿SL m0 esta acuilvo, séulica 

and All ; Se queda con la coordenada Y de enemigo 

cp a ; Lo compara con la coordenada Y del disparo 
36 nz, checkCrashFire endloop ; Si no son iguales salta 

Jal Ep (Cal) ; Carga en A la coordenada X del enemigo 

and Sl ; Se queda con la coordenada X 

cp e ; Lo compara con la coordenada X del disparo 
é nz, checkCrashFire endloop +; Si no son iguales, salta 

dec hl ; Apunta HL a la coordenada Y del enemigo 
res SOT 7 (mL) ; Desactiva el enemigo 

ld ly el ; Carga la coordenada Y del disparo en B 

ld c, e ; Carga la coordenada X del disparo en C 
Call DeleteChar ; Borra el disparo y/o el enemigo 

ret ; Sale de la rutina 


checkCrashFire endLoop: 


LO hl ; Apunta HL a la coordenada Y del siguiente enemigo 


djnz checkCrashFire loop ; Bucle mientras B > 0 


mea 


Ha llegado el momento de probar si las colisiones funcionan, abrimos el archivo Main.asm, 
localizamos la etiqueta Main_loop, y justo debajo de CALL MoveFire, preservamos el valor de DE 
(es donde tenemos las pulsaciones de los controles), PUSH DE, añadimos la llamada a la rutina que 
acabamos de implementar, CALL CheckCrashFire, y recuperamos el valor de DE, POP DE, 
quedando de la siguiente manera: 


Main loop: 

call CheckCtrl 

seul MoveFire 

push de 

Sanll CheckCrashFire 
pop de 

eaulll MoveShip 

eaulll MoveEnemies 

3 Main loop 


Compilamos, cargamos en el emulador y probamos. 


Tenemos dos problemas, uno de ellos heredado: 
+ Sino movemos la nave, se borra y no se vuelve a pintar. 
+ Una vez que ya no hay naves, no podemos hacer otra cosa que volver a cargar el juego. 


El primer problema no lo vamos a abordar, si la nave se borra es porque ha colisionado con un 
enemigo, más adelante pintaremos una explosión. 


Cambio de nivel 


Para el cambio de nivel lo primero que tenemos que controlar es el número de enemigos que hay 
activos, al llegar a cero hay que cambiar de nivel. Lo segundo, es el número de niveles que tenemos, 
un total de treinta; por ahora al pasar al nivel treinta y uno, volveremos al uno, más adelante 
llegaremos al final del juego. 


Abrimos el archivo Var.asm y vamos a añadir una variable para el número de enemigos activos y 
otra para el nivel actual, al inicio del archivo, después de los títulos de información de la partida. 


; Información de la partida 
enemiesCounter: 

db SsI4 

levelCounter: 


db $01 


Antes de implementar la rutina que hace el cambio de nivel, vamos a hacer unos cambios para usar 
levelCounter. Abrimos el archivo Graph.asm y localizamos la rutina LoadUdgsEnemies. Esta rutina 
recibe en A el nivel, pero ya no es necesario pues ese valor lo va a tomar de levelCounter. 
Añadimos la siguiente línea al inicio de la rutina: 


ld a, (levelCounter) 


Cargamos en A el nivel actual, LD A, (levelCounter). 


En los comentarios de la rutina, borramos la línea referente a la entrada en A del nivel, quedando tal 
y como sigue: 


; Carga los gráficos definidos por el usuario relativos a los enemigos 


; Altera el valor de los registros AF, BC, DE y HL 


, 


LoadUdgsEnemies: 


dE a, (levelCounter) ; Carga en A el nivel 

dec a ; Decrementa A para que no sume un nivel de más 
ld h, $00 

ld Ju El ; Carga el resultado en HL 

add Im, Jm p Minllicajouliiga ja 2 

add lo gag 4 

add Ind, ml P ol E 

add ul, p go 16 

add de POD 32 


ld de, udgsEnemieslevell ; Carga la dirección del enemigo 1 en DE 


add hl, de y Lo sima. a HL 

ld de, udgsExtension ; Carga en DE la dirección de la extensión 

ld E, $20 ; Carga en BC el número de bytes a copiar, 32 
Jolie ; Copia los bytes del enemigo en los de extensión 
eE 


En el archivo Game.asm, buscamos la etiqueta checkCrahsFire_endLoop, justo por encima de ella 
hay un RET y justo por encima de este RET añadimos las siguientes líneas: 


ld h1, enemiesCounter ; Apunta HL al contador de enemigos 


dec (h1) ; Resta un enemigo 


En el archivo Main.asm, tres líneas por encima de Main_loop, justo antes de CALL 
LoadUdgsEnemies, borramos la línea LD A, $01, pues el nivel se toma ya de levelCounter. 


Compilamos, cargamos en el emulador y comprobamos que todo sigue funcionando. 


Ahora, en el archivo Game.asm, vamos a implementar el cambio de nivel, que consiste en cargar los 
gráficos de los enemigos del siguiente nivel, reiniciar la configuración de los enemigos, y actualizar 
los contadores que acabamos de añadir. 


ChangelLevel: 

ld a, (levelCounter) 
inc a 

cp Sit 

3 Cc, ChangeLevel end 
ld a, $01 


Cargamos en A el nivel actual, LD A, (levelCounter), incrementamos A para pasar al siguiente 
nivel, INC A, y comprobamos si el siguiente nivel es el treinta y uno, CP $1F. Si no hemos llegado 
al nivel treinta y uno saltamos a la parte final de la rutina, JR C, changeLevel_end. Si hemos 
llegado al nivel treinta y uno, recordad que solo tenemos treinta niveles, no saltamos y ponemos A a 
$01. 


changeLevel_ end: 

a (levelCounter), a 
(eL Jl LoadUdgsEnemies 

ld a, $14 

JLo! (enemiesCounter), a 
ld h1l, enemiesConfiglni 
ld de, enemiesConfig 


Jl bc, enemiesConfigEnd - enemiesConfiglni 


lLelilsz 


mer 


Cargamos el siguiente nivel en memoria, LD (levelCounter), A, cargamos los gráficos del enemigo 
del siguiente nivel, CALL LoadUdgsEnemies, cargamos el número de enemigos totales en A, LD 
A, $14, y actualizamos el valor en memoria, LD (enemiesCounter), A. 


Por último, reiniciamos la configuración de los enemigos. Apuntamos HL a la configuración inicial 
de los enemigos, LD HL, enemiesConfigIni, apuntamos DE a la configuración de los enemigos, 
LD DE, enemiesConfig, cargamos en BC el número de bytes de los que se compone la 
configuración de los enemigos, LD BC, enemiesConfigEnd — enemiesConfigIni, cargamos la 
configuración inicial de los enemigos en la configuración de los enemigos, LDIR, y salimos, RET. 


El funcionamiento de LDIR ya se explicó en PorompomPong. 


El aspecto final de la rutina es el siguiente: 


; Cambia de nivel. 


; Altera el valor de los registros AF, BC, DE y HL. 


, 


Changelevel: 

ld a, (levelCounter) ; Carga el nivel actual en A 
o a ; Carga en A el siguiente nivel 
cp Sie ; Compara si el nivel es el 31 
35 c, Changelevel end ¿ SL mo s El 31, selua 

ld a, $01 ¿ Sil es el 3, llo ¡um E dl 


changeLevel_ end: 


Lal (levelCounter), a ; Actualiza el nivel en memoria 

cldlal LoadUdgsEnemies ; Carga los gráficos de los enemigos 

ld a, $14 ; Carga en A el número total de enemigos 
Lal (enemiesCounter), a ; Lo carga en memoria 

Jl hl1, enemiesConfiglni ; Apunta HL a la configuración inicial 

ld de, enemiesConfig ; Apunta DE a la configuración 

ld bc, enemiesConfigEnd - enemiesConfiglni ; Carga en BC la longitud 


; de la configuración 


Jolie ; Carga la configuración inicial en la configuración 


Ter 


Para finalizar, tenemos que usar lo implementado; lo vamos a hacer en Main.asm. Localizamos la 
rutina MainLoop, localizamos la quinta línea, POP DE, y justo debajo de ella añadimos lo 
siguiente: 


ld a, (enemiesCounter) 
or a 
Es Z, Main restart 


Cargamos en A el número de enemigos activos, LD A, (enemiesCounter), comprobamos si hemos 
llegado a cero, CP $00, y saltamos si es así, JR Z, Main_restart. 


Ahora vamos al final del archivo, y justo encima del primer include añadimos lo siguiente: 


Main restart: 
cadlll ChangeLevel 


316 Main loop 


Cambiamos al siguiente nivel, CALL ChangeLevel, y volvemos al inicio del bucle, JR Main_loop. 


Dado que Main.asm va creciendo, veamos cual es el aspecto que debe tener ahora: 


org $S5dad 


?; Indicadores 


; Bit 0 -> se debe mover la nave 0 = No, 1 = Sí 
paa ll => Gl oluisjoaico SStá Ealrcitiyo 0 = No, 1 = Sí 
; Bit 2 -> se deben mover los enemigos 0 = No, 1 = Sí 


flags 

db $00 

Main 

ld ay PO 

Call OPENCHAN 

Na hl1, udgsCommon 
ld (UDG), hl 


ld HI ATTE. 


ld 


Call 


xor 


out 


cad 


cad 


(h1), $07 


CLS 


a 

($fe), a 
a, (BORDCR) 
$e7 

$07 


(BORDCR), a 


PrintFrame 


PrintInfoGame 


Brimis amo 


ASIS 


LoadUdgsEnemies 


PrintEnemies 


Main loop: 


cadll 


cad 


push 


Call 


pop 


ld 
or 


ES 


cadidl 
Cad 


3 


CheckCtrl 


MoveFire 


de 


CheckCrashFire 


de 


a, (enemiesCounter) 


a 


Z, Main restart 


MoveShip 


MoveEnemies 


Main loop 


Main restart: 
eau ChangeLevel 


sE Main loop 


include "Const.asm" 
include "Var.asm" 

include "Graph.asm" 
aclads Miele asia 


mac litds "Cierzil asa 


include "Game.asm" 


end Main 


Compilamos, cargamos en el emulador y, si todo ha ido bien, vemos como cambian los enemigos 
cuando los hemos destruido todos. 


Colisiones de los enemigos con la nave 


En esta primera aproximación, lo único que vamos a hacer es pintar una explosión cuando algún 
enemigo choque contra la nave, más adelante nos restará una vida. 


Primero vamos a implementar la rutina que pinta la explosión, abrimos el archivo Print.asm. 


PrintExplosion: 


ld a, $02 
cali Ink 
ld e, (SMILES) 


ld d, $04 


ld e, $92 


Cargamos dos en A (dos = color rojo), LD A, $02, y cambiamos el color de la tinta, CALL INK. 
Cargamos en BC la posición de la nave, LD BC, (shipPos), cargamos en D el número de UDG 
totales que tiene la explosión, LD D, $04, y cargamos en E el primer UDG de la explosión, LD E, 
$92. 


printExplosion loop: 
Call At 

ld a, € 

Sit $10 

halt 

halt 

halt 

halt 

no e 

dec el 

3é nz, printExplosion loop 
Jp Exralmts nato 


Posicionamos el cursor en las coordenadas de la nave, CALL AT, cargamos en A el UDG, LDA, E, 
y lo pintamos, RST $10. Esperamos cuatro interrupciones, HALT, HALT, HALT, HALT, 
apuntamos E al siguiente UDG, INC E, decrementamos D, DEC D, y nos quedamos en el bucle 
hasta que D valga cero, JR NZ, printExplosion_loop. 


Por último, volvemos a pintar la nave y salimos, JP PrintShip. Aprovechamos el RET de PrintShip 
para salir. Podríamos haber llamado a PrintShip y luego salido: 


cad PrintShip 


Let 


Pero con JP nos ahorramos un byte y diecisiete ciclos de reloj. 


El aspecto final de la rutina es el siguiente: 


PrintExplosion: 
ld a, $02 


cad Ink ; Pone la tinta en rojo 


ld ls, (Slap lLos) ; Carga en BC la posición de la nave 


Jl! SO ; Carga en D el número de UDG totales de la explosión 


ld e, $92 ; Carga en E el primer UDG de la explosión 


printExplosion loop: 


Sali At ; Posiciona el cursor 

ld a, e ; Carga en A el UDG 

rst $10 ; Lo pinta 

halt 

halt 

halt 

halt ; Espera 4 interrupciones 

AO e ; Apunta E al siguiente UDG 

dec d ; Decrementa D 

se nz, printExplosion loop ; Bucle hasta que D= 0 
Jp Praise ; Pinta la nave y sale por allí 


Ahora, en Game.asm, vamos a implementar las colisiones entre los enemigos y la nave que, como 
veréis, es bastante parecida a la rutina que implementa las colisiones de los enemigos con el 
disparo. 


CheckCrashShip: 

JLo] de, (shipPos) 

Mer h1l, enemiesConfig 

Jl kb, enemiesConfigEnd - enemiesConfiglni 
sra b 


Cargamos en HL la posición de la nave, LD DE, (shipPos), apuntamos HL a la configuración de los 
enemigos LD HL, enemiesConfig, cargamos en B el número de bytes de la configuración, LD B, 
enemiesConfigEnd — enemiesConfigIni, y lo dividimos entre dos para obtener el número de 
enemigos, SRA B. 


checkCrashShip loop: 

ld ay (mL) 

inc Ia dL 

loli 507, al 

3% z, CheckCrashShip endLoop 


Cargamos en A el primer byte de la configuración del enemigo, LD A, (HL), apuntamos HL al 
segundo byte de la configuración del enemigo, INC HL, comprobamos si el enemigo está activo, 
BIT $07, A, y saltamos si no es así, JR Z, checkCrashShip_endLoop. 


Sé nz, checkCrashShip endLoop 


Nos quedamos con la coordenada Y del enemigo, AND $1F, comparamos con la coordenada Y de 
la nave, CP D, y saltamos si no son la misma, JR NZ, checkCrashShip_endLoop. 


ld ap (mal) 

and sit 

cp e 

316 nz, CcheckCrashShip endLoop 


Cargamos el segundo byte de la configuración del enemigo en A, LD A, (HL), nos quedamos con la 
coordenada X, AND $1F, comparamos con la coordenada X de la nave, CP E, y saltamos si no son 
la misma, JR NZ, checkCrashShip_endLoop. 


dec hl 

res 5077 (ad) 

ld hl, enemiesCounter 
dec (h1) 

Jp PrintExplosion 


Si pasamos por aquí, ha habido colisión. Apuntamos HL al primer byte de la configuración del 
enemigo, DEC HL, desactivamos el enemigo, RES $07, (HL), apuntamos HL al contador de 
enemigos, LD HL, enemiesCounter, y le restamos uno, DEC (HL). Finalmente, saltamos a pintar 
la explosión y salimos, JP PrintExplosion, usando la misma técnica que hemos visto en 
PrintExplosion. 


checkCrashShip endLoop: 

LAO) hl 

djnz checkCrashShip loop 
et 


Si no ha habido colisión, apuntamos HL al primer byte de la configuración del siguiente enemigo, 
INC HL, y permanecemos en el bucle hasta que B valga cero y hayamos recorrido todos los 
enemigos, DJNZ checkCrashShip_loop. Para finalizar, salimos, RET. 


El aspecto final de la rutina es el siguiente: 


; Evalúa las colisiones de los enemigos con la nave. 


; Altera el valor de lo registros AF, BC, DE y HL 

CheckCrashShip: 

Je! de, (shipPos) ; Carga en DE la posición de nave 

ld hl1, enemiesConfig ; Apunta HL a la configuración de los enemigos 
ld kb, enemiesConfigEnd - enemiesConfiglni ¡; B = bytes totales configuración 
sra b ¡B=BY/ 2 = número d nemigos 
checkCrashShip loop: 

ld al (adl) ; Carga en A la coordenada Y del enemigo 

inc lol ; Apunta HL a la coordenada X del enemigo 

¡E 5077 El ; Evalúa si el enemigo está activo 

35 z, CheckCrashShip endLoop fp Si me leo Está, Sscubra 

and Salse ; Se queda con la coordenada Y del enemigo 

cp da ; Compara con la coordenada Y de la nave 

3% nz, CcheckCrashShip endLoop +; Si no son iguales, salta 

Jal a, (h1) ; Carga en A la coordenada X del enemigo 

and Sales ; Se queda con la coordenada X de enemigo 

cp e ; Compara con la coordenada X de la nave 

1 nz, checkCrashSh1p endloop ; Si no son iguales, salta 

dec hl ; Apunta HL a la coordenada Y del enemigo 

res SOT, (ul) ; Desactiva el enemigo 

ld h1l, enemiesCounter ¡; Apunta HL al contador de enemigos 

dec tao ; Resta un enemigo 

Jp PrintExplosion ; Pinta la explosión y sale 

checkCrashShip endLoop: 

ana hl ; Apunta HL a la coordenada Y del siguiente enemigo 
cNjmz checkCrashShip loop ; En bucle hasta que B = 0 


eE 


Ha llegado el momento de probar las colisiones entre la nave y los enemigos. Abrimos Main.asm, 
localizamos la rutina Main_loop y vemos que la última línea es JR Main_loop. Justo encima de 
esta línea vamos a añadir la llamada a la comprobación de las colisiones entre nave y enemigos: 


call CheckCrashShip 


Compilamos, cargamos en el emulador y vemos los resultados. 


Conclusión 


Hemos implementado las colisiones entre el disparo y los enemigos, y entre los enemigos y la nave. 
También hemos implementado el cambio de nivel cuando hemos destruido todos los enemigos. 


En el próximo capítulo vamos a implementar una transición entre niveles y el marcador. 


0x08 Transición entre niveles y marcador 


En este capítulo vamos a implementar una transición entre niveles y el marcador. 


Como siempre, creamos la carpeta Paso08 y copiamos desde la carpeta Paso07 los archivos 
Cargador.tap, Const.asm, Ctrl.asm, Game.asm, Graph.asm, Int.asm, Main.asm, Print.asm, Var.asm y 
make, o make.bat si estáis trabajando en Windows. 


Transición de cambio de nivel 


Lo primero que vamos a implementar es una rutina que cambie los atributos de color de la pantalla, 
asignando los que vengan en el registro A. Abrimos el archivo Graph.asm. 


Ccllae 

ld hl1, $5800 
ld (h1), a 
ld de, $5801 
ld e) SO2E 
ldir 

mer 


Apuntamos HL a la primera dirección del área de atributos, LD HL, $5800, cargamos los nuevos 
atributos en esa dirección, LD (HL), A, apuntamos DE a la siguiente dirección, LD DE, $5801, 
cargamos en BC el número de posiciones totales del area de atributos menos una (la primera ya esta 
cambiada), LD BC, $02FF, cambiamos todo el área de atributos, LDIR, y salimos, RET. 


El aspecto de la rutina, una vez comentada, es el siguiente: 


; Cambia los atributos de color de la pantalla. 


; Entrada: A = Atributos de color (EBPPPIIIL). 


; Altera el valor de los registros AF, BC, DE y HL. 


Cla 

ld hl, $5800 ; Apunta HL a la dirección de inicio de los atributos 
lo: E a ¿ Carga los artrlgutos 

ld de, $5801 ; Apunta DE a la segunda dirección de los atributos 
ld E, SOLE ; Carga en BC el número de posiciones a cambiar 

Jolie ; Cambia los atributos de la pantalla 


SE 


Ahora vamos a implementar, también en Graph.asm, la rutina que vamos a usar como transición de 
un nivel a otro. Esta rutina es una variación de la rutina FadeScreen que podéis encontrar en el 
Curso de Ensamblador Z80 de Compiler Software. 


Vamos a recorrer todo el área de vídeo para realizar un máximo de ocho desplazamientos en cada 
byte para limpiarlo. 


FadeScreen: 


ld b, $08 


fadeScreen _loopl: 
ld h1, $4000 


ld de, $1800 


Cargamos en B el número de iteraciones del bucle exterior, LD B, $08, apuntamos HL al inicio del 
área de vídeo, LD HL, $4000, y cargamos en DE la longitud total del área de vídeo (la parte de los 
píxeles), LD DE, $1800. 


fadeScreen loop2: 

ld Ely (mul) 

or a 

Si Zz, fadeScreen cont 
lote $00, 1 

3 Z, EadeScreen right 
rla 

ie fadeScreen cont 
Fadesercontrigaer: 

rra 


Cargamos en A el byte al que apunta HL, LD A, (HL), comprobamos si está limpio (está a cero), 
OR A, y saltamos si lo está, JR Z, fadeScreen_cont. 


Si no saltamos, comprobamos si la dirección a la que apunta HL es par o impar, BIT $00, L, y si lo 
es (el bit O vale cero) saltamos, JR Z, fadeScreen_right. Si la dirección de memoria es impar, no 
saltamos, rotamos A hacia la izquierda, RLA, y saltamos, JR fadeScreen_cont. Si la dirección de 
memoria es par, rotamos A hacia la derecha, RRA. 


Antes de continuar vamos a detenernos en tres líneas, la primera de ellas es OR A. Llegados a este 
punto, queremos saber si el byte del área de vídeo al que punta HL está limpio (tiene todos los bits a 
cero) y lo podríamos haber hecho con CP $00, consumiendo dos bytes y siete ciclos de reloj. OR A 
solo da como resultado cero, si A vale cero, consumiendo un byte y cuatro ciclos de reloj; la 
afectación de los flags es muy parecida, y en el caso del flag de acarreo el resultado es el mismo. En 
lugar de OR A, podríamos poner ANDA, el resultado es el mismo. 


Las siguientes líneas a tener en cuenta son RLA y RRA. En ambos casos se rota el registro A, en el 
caso de RLA hacia de izquierda, y hacia la derecha en el caso de RRA. 


RLA: rota el byte hacia la izquierda, el valor del bit 7 lo pone en el acarreo, y el valor que 
tiene el acarreo lo pasa al bit 0. 


RRA: rota el byte hacia la derecha, el valor del bit O lo pone en el acarreo, y el valor que 
tiene el acarreo lo pasa al bit 7. 


C= 1 Byte = 10000001 


RLA RRA 
C = 1 Byte = 00000011 C = 1 Byte = 11000000 
C = 0 Byte = 00000111 C = 0 Byte = 11100000 
C = 0 Byte = 00001110 C =0 Byte = 01110000 


Según podemos ver en esta tabla, si en algún momento de la rutina FadeScreen, antes de hacer la 
rotación, el acarreo está a uno, se nos puede quedar algún píxel sin limpiar; pero esto no nos va a 
pasar pues otras de las cosas que hace OR A es poner el acarreo a cero, de igual manera pasa si 
usamos CP $00. 


Llegamos a la parte final de la rutina. 


ld 


djnz 


Let 


fadeScreen cont: 


(hal), a 


hl 


nz, fadeScreen loop2 


fadeScreen loopl1 


Actualizamos la posición de vídeo a la que apunta HL con el valor rotado, LD (HL), A, y 


apuntamos HL a la siguiente posición del área de vídeo, INC HL. 


Decrementamos DE, DEC DE, cargamos el valor de D en A, LD A, D, lo mezclamos con E, OR E, 
y seguimos en bucle hasta que DE sea cero, JR NZ, fadeScreen_loop2. 


Cargamos el valor de B en A, LD A, B, decrementamos A para que el valor quede comprendido 
entre siete y cero, DEC A, preservamos el valor de BC, PUSH BC, cambiamos los colores de la 
pantalla, CALL Cla, recuperamos el valor de BC, POP BC, y seguimos en bucle hasta que B valga 
cero, DJNZ fadeScreen_loop1. Finalmente, salimos. 


Vamos a parar nuevamente para explicar una parte del código más en profundidad. 


dec de 

ld a, A 

or e 

ajié nz, fadeScreen loop2 


Hasta ahora hemos hecho bucles usando registros de 8 bits, como es en este caso el bucle externo; 
cargamos ocho en B, LD B, $08, y más adelante, con DJNZ, decrementamos B y si el resultado no 
es cero saltamos y seguimos en el bucle, gracias a que INC o DEC cuando se hace sobre un registro 
de 8 bits afecta al flag Z. 


En el caso de los registro de 16 bits, los incrementos y los decrementos no afectan al flag Z, de esta 
manera si solo decrementamos el registro y luego comprobamos si se ha activado el flag Z, nos 
encontramos ante un bucle infinito. Para hacer un bucle utilizando un registro de 16 bits, tras 
decrementar el registro, cargamos una de sus partes en A y luego hacemos OR con la otra parte, y 
en el caso de que ambos valores valgan cero, tal y como hemos visto anteriormente en este mismo 
capítulo, el resultado es cero, se activa el flag Z y saldremos del bucle. 


El resultado final de la rutina es el siguiente. 


; Efecto de desvanecimento de la pantalla. 


; Altera el valor de los registros AF, BC, DE y HL. 


, 


FadeScreen: 


ld dy 08 A lt xterior se repite 8 veces, una por bit 


fadeScreen _loopl: 


ld h1, $4000 ; Apunta HL al inicio del área de vídeo 


ld de, $1800 ; Carga en DE la longitud del área de vídeo 


fadeScreen _loop2: 


ld ap (aL) ; Carga en A el byte apuntado por HL 
or a ; Comprueba si tiene algún píxel activo 
y Z, FadeSereen cont ; Si no hay ninguno activo, salta 


lSalie 00), Al ; Comprueba si la dirección apuntada por HL es par/impar 


sé Z, EadeScreen right ; Si es par, salta 


rla ; Rota A un bit a la izquierda 


12 fadeScreen cont 


fadeScreen right: 


rra ; Rota A un bite a la derecha 


fadeScreen cont: 


ld (ANA ; Actualiza la posición de vídeo apuntada por HL 
inc hl ; Apunta HL a la siguiente posición 

dec de 

ld Ely al 

Oj e 

é nz, fadeScreen loop2 ; Bucle hasta que BC = 0 

la a, bp ;¿ Carga Ben A 

dec a ; Decrementa A para que quede entre 0 y 7 
push be ¿; Preserva el valor de BC 

cada Cla ; Cambia los colores de la pantalla 

pop be ; Recupera el valor de BC 

djnz fadeScreen loopl1 ; Bucle hasta que B = 0 

et 


Y llega el momento de probar lo implementado; abrimos Main.asm, localizamos la rutina 
Main_restart, y justo debajo, antes de CALL ChangeLevel, agregamos las siguientes líneas: 


Sal FadeScreen 
seul PrintFrame 
eadlll PrintInfoGame 
comal Print ship 


Llamamos al efecto de fusión de la pantalla, CALL FadeScreen, pintamos el marco de la pantalla, 
CALL PrintFrame, pintamos la información de la partida, CALL PrintInfoGame, y pintamos la 
nave, CALL PrintShip. 


Compilamos, cargamos en el emulador, matamos a todas la naves enemigas y vemos el efecto de 
fundido de la pantalla. 


Marcador 


En el marcador vamos a mostrar el número de vidas que tenemos, los puntos conseguidos, el nivel 
por el que vamos y los enemigos que quedan, por lo que vamos a necesitar alguna declaración más 
y vamos a introducir un nuevo concepto: los números BCD. 


Números BCD 


Un byte es capaz de contener números de O a 255, si trabajamos con números BCD este rango se 
reduce de O a 99. Los números BCD dividen el byte en dos nibbles (4 bits) y en cada uno de ellos 
almacena valores del 0 al 9, por lo que el valor hexadecimal 0x10, que en decimal es 16, trabajando 
con BCD sería 10, es decir, veríamos el número en notación hexadecimal como si fiera decimal, 
siendo esto muy útil, por ejemplo a la hora de pintarlos o para operar con números de más de 16 
bits. 


Para poder operar de esta manera con los números, tenemos la instrucción DAA (Decimal Adjust 
Accumulator), que funciona de la siguiente forma: 


+ Comprueba los bits 0, 1, 2 y 3, si contienen un dígito no BCD, mayor que nueve, o el flag H 
está activo, suma o resta $06 (0000 0110b) al byte, dependiendo de la operación que se ha 
realizado. 


+ Comprueba los bits 4, 5, 6, y 7, si contienen un dígito no BCD, mayor que nueve, o el flag C 
está activo, suma o resta $60 (0110 0000b) al byte, dependiendo de la operación que se ha 
realizado. 


Después de cada instrucción aritmética, incremento o decremento hay que ejecutar DAA. Veamos 


un ejemplo. 
ld a, $09 ; A= $09 
O a ; A= $0a 
daa ¿A = $10 
dec a ¡A = $0f 
daa ¡A = $09 


add ay SOS ¿A = $0c 


daa ¡¿A= $12 
sub ap SOS EA SOME 
daa ¡A = $09 


Número de enemigos y nivel 


Ahora, vamos a abrir el archivo Var.asm y a localizar la etiqueta enemiesCounter, que como vemos 
define veinte en hexadecimal ($14), y lo vamos a cambiar por el valor en BCD, $20. Localizamos la 
etiqueta levelCounter, y vemos que define $01; en este caso no lo vamos a cambiar, pero vamos 
añadir un byte con el mismo valor, usado el primer byte para cargar los enemigos de cada nivel y 
hacer el cambio de nivel, y el segundo byte para pintar el número de nivel en el que estamos. 


; Información de la partida 
enemiesCounter: 

dl) $20 

levelCounter: 


dla. SOL, 01 


Estas dos etiquetas las usamos en partes de nuestro programa, pero no estamos teniendo en cuenta 
que ahora vamos a trabajar con números BCD, por lo que tenemos que localizar los lugares donde 
se usan y modificar su comportamiento. 


La primera modificación la vamos a hacer en la rutina ChangeLevel, que está en el archivo 
Game.asm, añadiendo siete líneas. Las cuatro primeras líneas las vamos a añadir al inicio de la 


rutina. 
Ue a, (levelCounter + 1) 
inc a 
daa 
ld Da 


Cargamos el nivel actual en formado BCD en A, LD A, (levelCounter + 1), incrementamos el nivel, 
INC A, realizamos el ajuste decimal, DAA, y cargamos el valor en B, LD B, A. 


Ahora, justo por encima de la etiqueta changeLevel_end añadimos la siguiente línea: 


ld dy 2 


Si pasamos por aquí, el siguiente nivel sería el treinta y uno y solo tenemos treinta, por lo que 
cargamos $01 en A, y ahora cargamos ese valor en el registro donde tenemos el nivel en formato 
BCD, LD B, A. 


Seguimos tomando como referencia la etiqueta changeLevel_end, tras la cual actualizamos el nivel 
en memoria. Justo debajo de esta línea, LD (levelCounter), a, vamos a añadir las líneas que 
actualizan en memoria el nivel en formato BCD. 


ld a, 19 


ad (levelCounter + 1), a 


Cargamos en A el nivel actual en BCD, LD A, B, y lo actualizamos en memoria, LD (levelCounter 
+ 1), A. 


Dos líneas más abajo, sustituimos LD A, $14 por LD A, $20, para tener el número total de enemigos 
en BCD. 


El aspecto final de la rutina, una vez realizadas las modificaciones, es el siguiente. 


; Cambia de nivel. 


; Altera el valor de los registros AF, BC, DE y HL. 


, 


Changelevel: 

dE a, (levelCounter + 1) ; Carga en A el nivel actual en BCD 
no a ; Incrementa el nivel 

daa ; Hace el ajuste decimal 

ld ld) El ; Carga el valor en B 

ld a, (levelCounter) ; Carga el nivel actual en A 
aime a ; Carga en A el siguiente nivel 
cp Salsa ; Compara si el nivel es el 31 
En c, Changelevel end ; Si no es el 31, salta 

ld ay SOL ¿ Ses el 31, do poems a 1 

ld dy El ; Cargamos el valor en B 


changeLevel_ end: 


e! (levelCounter), a ; Actualiza el nivel en memoria 

hits: O ; Carga en A el nivel en BCD 

el (levelCounter + 1), a ; Lo actualiza en memoria 

Call LoadUdgsEnemies ; Carga los gráficos de los enemigos 

ld a, $20 ; Carga en A el número total de enemigos 
e! (enemiesCounter), a ; Lo carga en memoria 


ld hl1, enemiesConfiglni ; Apunta HL a la configuración inicial 


ld de, enemiesConfig ; Apunta DE a la configuración 


ld bc, enemiesConfigEnd - enemiesConfiglni ; Carga en BC la longitud 


; de la configuración 


Jolie ; Carga la configuración inicial en la configuración 


ter 


Si ahora compiláramos, veríamos que al matar a todos los enemigos no se produciría el cambio de 
nivel, debido a que ahora el número de enemigos es $20 (32) y no hemos adaptado todas las rutinas 
para trabajar con BCD. 


Seguimos en el archivo Game.asm, localizamos las etiqueta checkCrashFire_endLoop, justo por 
encima de esta etiqueta hay un RET, y justo por encima están las instrucciones que restan un 
enemigo al contador, LD HL, enemiesCounter y DEC (HL). Vamos a sustituir esas dos líneas por 
las siguientes: 


ld a, (enemiesCounter) 
dec a 

daa 

ld (enemiesCounter), a 


Cargamos en A el número de enemigos, LD A, (enemiesCounter), le restamos uno, DEC A, 
realizamos el ajuste decimal, DAA, y actualizamos el valor en memoria, LD (enemiesCounter), A. 


El aspecto final de la rutina es el siguiente: 


; Evalúa las colisiones del disparo con los enemigos. 


; Altera el valor de lo registros AF, BC, DE y HL. 


, 


CheckCrashFire: 
aller a, (flags) ; Carga los flags en A 
and $02 ; Evalúa si el disparo está activo 
ret Za ¿ Si no está activo, sale 
Jl! de, (firePos) ; Carga en DE la posición del disparo 
ld hl1, enemiesConfig ; Apunta HL a la definición del primer enemigo 
ld b, enemiesConfigEnd - enemiesConfiglni ; Carga en B el número de bytes 
; de la configuración de los enemigos 
sra b ; Lo divide entre dos, B = número d nemigos 


checkCrashFire loop: 


Jl a, (h1) ; Carga en A la coordenada Y del enemigo 

LO IL ; Apunta HL a la coordenada X del enemigo 
lali $07, a ; Evalúa si el enemigo está activo 

pié z, CheckCrashFire endLoop ¿ Sl mo está aculvo, séeulca 

and Salse ; Se queda con la coordenada Y del enemigo 
cp da ; Lo compara con la coordenada Y del disparo 
ES 0, Case asiailds eaclios + Sil mo som e tveles seuleal 

ld el (al) ; Carga en A la coordenada X del enemigo 

and Silla ; Se que con la coordenada X 

ja e ; Lo compara con la coordenada X del disparo 
JE 05, Caseras enmclios + Sl mo som iceuveles, salta 

dec hl ; Apunta HL a la coordenada Y del enemigo 
res SOT, (Umi) ; Desactiva el enemigo 

ld ly el ; Carga la coordenada Y del disparo en B 

ld c, e ; Carga la coordenada X del disparo en C 
Call DeleteChar ; Borra el disparo y/o el enemigo 

ld a, (enemiesCounter) ; Carga en A el número d nemigos 

dec a ; Resta uno 

daa ; Hace el ajuste decimal 

Jal (enemiesCounter), a ; Actualiza el valor en memoria 

ret ; Sale de la rutina 

checkCrashFire endLoop: 

NES hl ; Apunta HL a la coordenada Y del siguiente enemigo 
djnz checkCrashFire loop ; Bucle mientras B > 0 

ma 


Hay otra rutina en dónde restamos un enemigo, la rutina que evalúa las colisiones de la nave con el 
enemigo. Localizamos la etiqueta checkCrashShip_endLoop, justo encima encontramos JP 
PrintExplosion, y justo encima encontramos dos líneas iguales a las que hemos sustituido, y que 
tenemos que sustituir igual que hemos hecho antes. 


El aspecto final de la rutina es el siguiente: 


; Evalúa las colisiones de los enemigos con la nave. 


; Altera el valor de lo registros AF, BC, DE y HL. 


CheckCrashShip: 


ld de, (shipPos) ; Carga en DE la posición de nave 

ld h1l, enemiesConfig ; Apunta HL a la configuración de los enemigos 

ld b, enemiesConfigEnd - enemiesConfiglni ¡; B = bytes totales configuración 
sra b ¡B=BY/2= número d nemigos 


checkCrashShip loop: 


ld ap (al) ; Carga en A la coordenada Y del enemigo 
ne hl ; Apunta HL a la coordenada X del enemigo 
bit $07, a ; Evalúa si el enemigo está activo 

316 z, CheckCrashShip endLoop ; Si no lo está, salta 

and SLsE ; Se queda con la coordenada Y del enemigo 
cp da ¿; Compara con la coordenada Y de la nave 
3% nz, checkCrashShip endLoop +; Si no son iguales, salta 

ld a, (h1) ; Carga en A la coordenada X del enemigo 
and Salsa ; Se queda con la coordenada X de enemigo 
cp e ¿ Compara con la coordenada X de la nave 
yé nz, CcheckCrashShip endLoop +; Si no son iguales, salta 

dec ImdL ; Apunta HL a la coordenada Y del enemigo 
res SO077  (aul) ; Desactiva el enemigo 

Jl a, (enemiesCounter) ; Carga en A el número d nemigos 
dec a ; Resta uno 

daa ; Hace el ajuste decimal 

ld (enemiesCounter), a ; Actualiza el valor en memoria 

Jp PrintExplosion ; Pinta la explosión y sale 


checkCrashShip endLoop: 


inc hl ; Apunta HL a la coordenada Y del siguiente enemigo 
djnz checkCrashShip loop ; En bucle hasta que B = 0 
ter 


Si ahora compilamos y cargamos en el emulador, todo vuelve a funcionar. 


Pintando números BCD 


Vamos a implementar una rutina que pinte los números BCD en pantalla, y como veréis es algo 
relativamente sencillo. Para calcular el código de carácter de cada uno de los dígitos, solo hay que 
sumarle el carácter cero. 


Abrimos Print.asm y vamos a implementar la rutina que pinte los números BCD, recibiendo en HL 
la dirección de memoria donde está el número a pintar. 


PRUnNtBCeDE 


ld 2 (mul) 


Cargamos el número a pintar en A, LD A, (HL), nos quedamos con las decenas, AND $FO0, 
ponemos el valor en los bits del cero al tres, RRA RRA RRA RRA, le sumamos el código del 
carácter 0, ADD A, “0”, y pintamos las decenas, RST $10. 


JLo! Ey. (adL) 
and S0)E 
add ON 
rst $10 
ek 


Cargamos el número a pintar en A, LD A, (HL), nos quedamos con las unidades, AND $0F, le 
sumamos el código del carácter 0, ADD A, “0”, y pintamos las unidades, RST $10. Finalmente, 
salimos, RET. 


El aspecto final de la rutina es el siguiente: 


; Pinta números en formato BCD 


; Entrada: HL -> Puntero al número a pintar 


; Altera el valor de los registros AF. 


o 


BRintBaDR 


ie A Gal) ; Carga en A el número a pintar 


and S£O0 ¿; Se queda con las decenas 


ici6al 
rra 

rra 

rra 2 19 jee en los llrs 0 a 3 

add ag “Q ; Le suma el carácter 0 

rst $10 ; Pinta el dígito 

ld a, (h1) ; Carga el A el número a pintar 
and Ssof ; Se queda con las unidades 

add ay “QU ; Le suma el carácter 0 

rst $10 ; Pinta el dígito 

ICE 


Pintando el marcador 


Vamos a implementar la rutina que pinta el marcador: vidas, puntos, nivel y enemigos. 


Lo primero que vamos a hacer es definir las constantes de localización de cada uno de los 
elementos del marcador, para lo que abrimos el archivo Const.asm y añadimos las siguientes líneas: 


COR ENEMY: EQU $1705 ; Coordenadas de la información de los enemigos 
COR LEVEL: EQU $170d ; Coordenadas de la información del nivel 
COR_LIVE: EQU $171e ; Coordenadas de la información de las vidas 
COR_POINT: EQU $1717 ; Coordenadas de la información de los puntos 


Los valores de la información de la partida los vamos a pintar en la línea de comandos, disponemos 
de dos líneas en este lugar. Recordad que para la rutina de la ROM que posiciona el cursor, la 
esquina superior izquierda es $1820, o lo que es lo mismo Y = 24, X = 32, por lo que los valores se 
van a pintar en la línea 23 y en las columnas 5, 13, 30 y 23. Si restamos a 24 y 32 lo valores de fila 
y columnas, el resultado son las coordenadas si la esquina superior derecha fuera $0000. 


En Var.asm vamos a añadir las definiciones para llevar el control de las vidas y los puntos. 


livesCounter: 
COSOS 
pointsCounter: 


dw  $0000 


Y ahora abrimos Print.asm para implementar la rutina que va a pintar los valores del marcador. 


PrintInfoValue: 
ld a, $05 


Call Ink 


ld ay Ol 


camall OPENCHAN 


Cargamos en A la tinta cinco, LD A, $05, y llamamos al cambio de tinta, CALL Ink. Dado que los 
valores los vamos a pintar en la línea de comandos, cargamos en A el canal uno, LD A, $01, y 
abrimos el canal, CALL OPENCHAN. 


ld bc, COR LIVE 
eadlal At 

ld hl, livesCounter 
ecadll PrintBCD 


Cargamos en BC la posición donde pintamos las vidas, LD BC, COR_LIVE, posicionamos el 
cursor, CALL At, apuntamos HL al contador de vidas, LD HL, livesCounter, y pintamos las vidas, 
CALL PrintBCD. 


ld bc, COR POINT 

edil At 

ld hl1, pointsCounter + 1 
edi PrintBCD 

ld hl1, pointsCounter 
Call BrRintBc) 


Cargamos en BC la posición donde pintamos los puntos, LD BC, COR_POINT, posicionamos el 
cursor, CALL At, apuntamos HL a las unidades de millar y las centenas de los puntos, LD HL, 
pointsCounter + 1, y lo pintamos, CALL PrintBCD. Apuntamos HL a las decenas y las unidades de 
los puntos, LD HL, pointsCounter, y lo pintamos, CALL PrintBCD. 


ld bc, COR LEVEL 

cena At 

¡ho hl1l, levelCounter + 1 
dll PrintBCD 


Cargamos en BC la posición donde pintamos el nivel, LD BC, COR_LEVEL, posicionamos el 
cursor, CALL At, apuntamos HL al contador de niveles en formato BCD, LD HL, levelCounter + 1, 
y lo pintamos, CALL PrintBCD. 


ld bc, COR_ENEMY 
call At 
ld hl, enemiesCounter 


Sad PrintBCD 


Cargamos en BC la posición donde pintamos el contador de enemigos, LD BC, COR_ENEMY, 
posicionamos el cursor, CALL At, apuntamos HL al contador de enemigos, LD HL, 
enemiesCounter, y lo pintamos, CALL PrintBCD. 


ld a, $02 
Cad OPENCHAN 
ret 


Antes de salir, activamos la pantalla superior. Cargamos el canal dos en A, LD A, $02, cambiamos 
el canal, CALL OPENCHAN, y salimos, RET. 


El aspecto final de la rutina es el siguiente: 


; Pinta los valores de la información de la partida. 

; Altera el valor de los registros AF, BC y HL. 

PrintInfoValue: 

ld ap SUS ; Carga la tinta 5benA 

exa Ink fp Camioita der icstoiea 

ld dy 01 ; Carga len A 

Call OPENCHAN ; Activa el canal 1, línea de comando 

ld loe, COR 1 ivan ; Carga la posición de las vidas en BC 
call At ; Posiciona el cursor 

JLo! h1, livesCounter ; Apunta HL al contador de vidas 

Sail PrintBCD po jgtiaizal 

JLo! Nx CUR JAQUUNOE ; Carga en BC la posición de los puntos 
cadidl At ; Posiciona el cusor 

ld In, jalisco bm ae dl ; Apunta HL a unidades de millar y centenas 
coda PrantBenD p 19 jolmical 

ld h1, pointsCounter ; Apunta HL a decenas y unidades 

Sal PrRantBen Fdo ¡gia 

ld bc, COR LEVEL ; Carga en BC la posición de los niveles 
Call At p Posicioma el ecuzsol 

ld hl1, levelCounter + 1 ; Apunta HL al contador de niveles en BCD 


seul PrintBCD ; Lo pinta 


ld bc, COR ENEMY ; Carga en BC la posición de los enemigos 
cad At ¡ Posieiona ell cursor 

ld h1, enemiesCounter ; Apunta HL al contador de enemigos 

(anal PrintBCD g dío pata 

ld Ey SO2 ; Carga 2 en A 

cell OPENCHAN ; Activa el canal 2, pantalla superior 
mer 


Es el momento de ver si lo que hemos implementado funciona, abrimos Main.asm, localizamos la 
etiqueta Main y la instrucción DI, justo encima añadimos la siguiente línea para llamar a pintar la 
información de la partida: 


cali PrintInfoValue 


Localizamos ahora la etiqueta Main_restart, y justo antes de la última línea, JR, Main_loop, 
añadimos la misma línea de antes. Compilamos, cargamos en el emulador y vemos los resultados. 


Como podemos observar, solo se está actualizando el nivel, pero el resto de información de la 
partida no se actualiza. Además, no se está pintando con el color que hemos definido. 


La parte del color es lo primero que vamos a solucionar. La variable de sistema donde cargamos los 
atributos de la pantalla en la rutina Ink, afecta a la pantalla superior, por lo que no se ve afectada la 
línea de comandos. Los atributos de la linea de comandos están en la misma variable de sistema 
donde están los atributos del borde (BORDCR), de manera que vamos a realizar dos 
modificaciones. 


Abrimos el archivo Print.asm, localizamos la rutina PrintInfo Value, y borramos las dos primeras 
líneas, LD A, $05 y CALL Ink, ya que como hemos visto, no cambia los atributos de la línea de 
comandos. 


Volvemos al archivo Main.asm, localizamos la etiqueta Main, y vamos a modificar la parte en la 
que se asigna el color al borde, cuyo aspecto actual es el siguiente: 


xor a 

out (Ste), a 

ld a, (BORDCR) 
and $07 

or $07 

Lal (BORDCR), a 


Vamos a modificar las líneas cuatro y cinco, tras lo cual el aspecto queda de la siguiente manera: 


xor a 

out (Ste), a 

ld a, (BORDCR) 
and $c0 

or $05 

ld (BORDCR), a 


Compilamos, cargamos en el emulador y comprobamos que ahora sí, los valores se pintan en el 
color elegido. 


Y ahora vamos a actualizar el resto de valores del marcador. Cada vez que el disparo alcanza un 
enemigo, tenemos que restar un enemigo al contador y sumar cinco puntos. Por otro lado, cada vez 
que un enemigo alcanza nuestra nave, tenemos que restar una vida y restar un enemigo. 


Abrimos el archivo Game.asm, localizamos la etiqueta checkCrahsFire_endLoop y observamos 
que en las líneas que hay por encima ya se resta un enemigo al contador. 


ld a, (enemiesCounter) ; Carga en A el número d nemigos 


dec a ; Resta uno 


daa ; Hace el ajuste decimal 


Lol (enemiesCounter), a ¿ Actualiza el valor en memoria 


ZE 


Nos falta añadir cinco puntos por haber acabado con un enemigo y pintar la información de la 
partida. Vamos a añadir las siguientes líneas entre LD (enemiesCounter), A y RET. 


ld a, (pointsCounter) 

add ay $05 

daa 

ld (pointsCounter), a 

ld a, (pointsCounter + 1) 
ade a, $500 

daa 

ld (pointsCounter + 1), a 
sadll PrintInfoValue 


Cargamos la unidades y las decenas de los puntos en A, LD A, (pointsCounter), le añadimos cinco, 
ADD A, $05, hacemos el ajuste decimal, DAA, y cargamos el valor en memoria, LD 
(pointsCounter), A. 


Sumar cinco a las unidades y el ajuste decimal puede provocar un acarreo, por ejemplo si el valor 
era noventa y cinco, por lo que tenemos que sumar uno a las centenas, en concreto el acarreo. 


Cargamos en A las centenas y las unidades de millar, LD A, (pointsCounter + 1), sumamos cero con 
acarreo a A, ADC A, $00, hacemos el ajuste decimal, DAA, cargamos el valor en memoria, LD 
(PointsCounter + 1), A, y pintamos la información de la partida, CALL PrintInfo Value. 


El aspecto final de la rutina es el siguiente: 


; Evalúa las colisiones del disparo con los enemigos. 


; Altera el valor de lo registros AF, BC, DE y HL. 


Y 


CheckCrashFire: 

la a, (flags) ; Carga los flags en A 

and $02 ; Evalúa si el disparo está activo 

ret Za ¿ Si no está activo, sale 

ld de, (firePos) ; Carga en DE la posición del disparo 

ld hl1, enemiesConfig ; Apunta HL a la definición del primer enemigo 
ld b, enemiesConfigEnd - enemiesConfiglni ; Carga en B el número de bytes 


; de la configuración de los enemigos 


Sica 


checkCrashFire loop: 


Jlil 
Ina 
bit 
JE 
and 
cp 
ajES 
ld 
and 
cp 


JE 


dec 
res 
ld 
ld 
calla 
ld 
dec 
daa 
ld 
ld 
add 
daa 
ld 
ld 
ade 
daa 
ld 


Cad 


Let 


a, (hl) 
¡o all 
$07, a 


z, CheckCrashFire endLoop 


sif 


d 


nz, CcheckCrashFire endLoop 


a, (hl) 


nz, CcheckCrashFire endLoop 


hl 

5077 (aL) 
lo El 

c, e 
DeleteChar 


a, (enemiesCounter) 


a 


(enemiesCounter), a 
a, (pointsCounter) 


ay 505 


(pointsCounter), a 
a, (pointsCounter + 1) 


a, $00 


(pointsCounter + 1), a 


PrintInfoValue 


checkCrashFire endLoop: 


AO) 


hl 


, 


, 


, 


, 


, 


Lo divide entre dos, B = número d nemigos 


Carga en A la coordenada Y del enemigo 


Apunta HL a la coordenada X del enemigo 


Evalúa si el enemigo está activo 
¿ Si no está activo, salta 

Se queda con la coordenada Y de enemigo 

Lo compara con la coordenada Y del disparo 
; Si no son iguales salta 

Carga en A la coordenada X del enemigo 

Se que con la coordenada X 

Lo compara con la coordenada X del disparo 
; Si no son iguales, salta 

Apunta HL a la coordenada Y del enemigo 

Desactiva el enemigo 

Carga la coordenada Y del disparo en B 

Carga la coordenada X del disparo en C 

Borra el disparo y/o el enemigo 


n A el número d 


Carga nemigos 
Resta uno 

Hace el ajuste decimal 

Actualiza el valor en memoria 
Carga en A las unidadaes y decenas 
Suma 5 

Hace el ajuste decimal 

Actualiza el valor en memoria 
Carga en A las centenas y unidades de millar 
Suma 0 con acarreo 

Hace el ajuste decimal 


Actualiza el valor en memoria 


Pinta la información de la partida 


Sale de la rutina 


Apunta HL a la coordenada Y del siguiente enemigo 


djnz checkCrashFire loop ; Bucle mientras B > 0 


Let 


En este código hemos utilizado una instrucción de no habíamos visto hasta ahora, ADC (Add With 
Carry). Esta instrucción suma el valor indicado a A, más el valor del acarreo, de tal manera que al 
sumar cero a A, si el acarreo está a uno sumaríamos uno a A, lo que comúnmente conocemos como 
“me llevo una”. 


La posibilidades de ADC son: 


Mnemócico Ciclos Bytes SZHPNC 
ADC A, r 4 L **R* YO" 
ADC A, N , 2 *R**Yog+* 
ADC A, (HL) 7 1] **_. yor 
ADC A, (IX+N) 19 3 ERRE 
ADC A, (IY+N) 19 J FXXVOS 
ADC HL, BC 15 2 EX IO SA 
ADC HL, DE 5 Z FRFETFOSA 
ADC HL, HL 15 2 **QYO0* 
ADC HL, SP 5 2 **?y0+* 


* Afecta al flag, V = overflow, O = pone el flag a O, ? = valor desconocido 


Ahora ya solo son queda restar una vida cuando la nave choca contra un enemigo. Seguimos en 
Game.asm, localizamos la etiqueta checkCrashShip_endLoop, justo por encima encontramos la 
línea JP PrintExplosion, y justo por encima vamos a añadir las líneas siguientes: 


ld a, (livesCounter) 
dec a 

daa 

ld (livesCounter), a 
eau PrintInfoValue 


Cargamos en A las vidas, LD A, (livesCounter), quitamos una, DEC A, hacemos el ajuste decimal, 
DAA, cargamos el valor en memoria, LD (livesCounter), A, y pintamos la información de la 
partida, CALL PrintInfo Value. Como podemos ver, al ser el contador de vidas de un solo byte, la 
modificación ha sido menos que la que hemos realizado para el contador de puntos. 


El aspecto final de la rutina es el siguiente: 


; Evalúa las colisiones de los enemigos con la nave. 


; Altera el valor de lo registros AF, BC, DE y HL. 


, 


CheckCrashShip: 


ld de, (shipPos) ; Carga en DE la posición de nave 


ld h1, enemiesConfig ; Apunta HL a la configuración de los enemigos 


ld kb, enemiesConfigEnd - enemiesConfiglni ¡; B = bytes totales configuración 


sra b ¿Bm =9/2= múmezo el nemigos 


checkCrashShip loop: 


ld aj (mil) ; Carga en A la coordenada Y del enemigo 
ae hl ; Apunta HL a la coordenada X del enemigo 
bit 5077 El ; Evalúa si el enemigo está activo 

JE z, CheckCrashShip endLoop ; Si no lo está, salta 

and Silla ; Se queda con la coordenada Y del enemigo 
cp da ; Compara con la coordenada Y de la nave 
3% nz, CcheckCrashShip endLoop +; Si no son iguales, salta 

ld al  (aul) ; Carga en A la coordenada X del enemigo 
and Salsa ; Se queda con la coordenada X de enemigo 
cp e ; Compara con la coordenada X de la nave 
3% nz, CcheckCrashShip endLoop +; Si no son iguales, salta 

dec ImdL ; Apunta HL a la coordenada Y del enemigo 
res SO077 (aL) ; Desactiva el enemigo 

ld a, (enemiesCounter) ; Carga en A el número d nemigos 
dec a ; Resta uno 

daa ; Hace el ajuste decimal 

JLo! (enemiesCounter), a ¿ Actualiza el valor en memoria 

ld a, (livesCounter) ; Carga las vidas en A 

dec a ¿ Quita una 

daa ; Hace el ajuste decimal 

ld (livesCounter), a ; Actualiza el valor en memoria 

anLl PrintInfoValue ; Pinta la información de la partida 

Jp PrintExplosion ; Pinta la explosión y sale 


checkCrashShip endLoop: 


inc hl ; Apunta HL a la coordenada Y del siguiente enemigo 


djnz checkCrashShip loop ; En bucle hasta que B = 0 


tet 


Es hora de ver si lo que hemos implementado funciona. Compilamos, cargamos en el emulador y 


vemos los resultados. 


Conclusión 


Ya tenemos todo listo para poder empezar a jugar nuestras primeras partidas. Hemos implementado 
una transición entre niveles y el marcador. 


En el siguiente capítulo implementaremos el menú de inicio y el fin de la partida. 


0x09 Comienza la partida 


En este capítulo vamos a implementar el inicio y el fin de la partida. 


Al igual que en capítulos anteriores, creamos la carpeta Paso09 y copiamos desde la carpeta Paso08 
los archivos Cargador.tap, Const.asm, Ctrl.asm, Game.asm, Graph.asm, Int.asm, Main.asm, make o 
make.bat, Print.asm y Var.asm. 


Antes de empezar con el objetivo de este capítulo, vamos a revisar la rutina PrintString para ver dos 
variaciones. 


Rutina PrintString 


Las variaciones que vamos a ver de la rutina PrintString las vamos a implementar en un nuevo 
archivo que vamos a llamar TestPrint.asm, luego decidiremos que rutina va a ser la definitiva. 


Abrimos el archivo TestPrint.asm y añadimos el siguiente código. 


org $S5dad 

TestPrint: 

ld mal, Siero] 

ld ld SESGO = SiO 
canLl Brindan g 

ld h1, stringNull 

cadll PrintStringNull 

la nl, Stan 

call Brito cl qa 

se 


jan] 
[52 
Il 


pg iaicidaiclers primera posición de memoria de la cadena 


(99) 
Il 


longitud de la cadena. 


; Altera el valor de los registros AF y HL 


A 


Drs Pana 


ld a, (h1l) ; Carga en A el carácter a pintar 


ESE $10 ; Pinta el carácter 


LO hl ; Apunta HL al siguiente carácter 
djnz Brisa ; Hasta que B valga 0 
Lee 


; Pinta cadenas. 


; Entrada: HL = primera posición de memoria de la cadena 


; Altera el valor de los registros AF y HL 


, 


rate Sicilias ul Le 

ld ly (ami) ; Carga en A el carácter a pintar 

or a ; Comprueba si es 0 

ret 7 ; De ser así, sale 

Sie $10 ; Pinta el carácter 

LO hl ; Apunta HL al siguiente carácter 

an PrintStringNull ; Bucle hasta que termine de pintar la cadena 


; Entrada: HL = primera posición de memoria de la cadena 


; Altera el valor de los registros AF y HL 


, 


Brite strasión q ER 

ld al (muy) ; Carga en A el carácter a pintar 

ja) SEE ; Comprueba si es S$FF 

ret Z ; De ser así sale 

Sa SO ; Pinta el carácter 

inc hl ; Apunta HL al siguiente carácter 

31í8 PrintStringrFF ; Bucle hasta que termine de pintar la cadena 
SiO 


db SiO, $05, SLI, $0S% SLO, $09, S0a, "EHola Emascmolacior” 


stringE0rF: 

db $00 

stringNull: 

db SILO, SO07, SLI, SOL, SLS, S07, $032, "iola EasamiolacionY, S00 
stringrFF: 

db SILO, SO02, SL, 507, SILO, S09, $082, "Miola maseamolacion”, Site 
end TestPrint 


En este código podemos ver tres rutinas PrintString: 
+ PrintString: la rutina tal cual la tenemos ahora. 
* — PrintStringNull: rutina que pinta cadenas y usa como fin de cadena el carácter nulo ($00). 
*  PrintStringFF: rutina que pinta cadenas y usa como fin de cadena el carácter $FF. 


La primera de estás rutinas ya la conocemos, por lo que vamos a explicar la rutina PrintStringNull, 
ya que PrintStringFF solo se diferencia en una línea a ésta. 


PrintStringNull: 

ld ay (mL) 

or a 

SE iZ 

Si $10 

inc hl 

312 PrintStringNull 


PrintStringNull y PrintStringFF, reciben en HL la primera posición de la cadena (al igual que 
PrintString), pero no necesitan conocer la longitud de la misma. 


Cargamos en A el carácter al que apunta HL, LD A, (HL), comprobamos si es cero, OR A, y salimos 
si es así, RET Z. La línea que cambia en PrintStringFF con respecto a PrintStrinNull es OR A, 
que la cambiamos por CP $FF, ya que $FF es el carácter que se usa en este caso como fin de 
cadena. Debemos recordar que el resultado de OR A solo es cero si A vale cero. 


Si el carácter cargado en A no es el de fin de cadena, pintamos el carácter, RST $10, apuntamos HL 
al siguiente carácter, INC HL, y seguimos en bucle hasta que pinte toda la cadena, JR 
PrintStringNull. 


El uso de una u otra rutina tiene sus pros y sus contras. La primera comparativa la vamos a realizar 
sobre bytes y ciclos de reloj. 


Bytes Ciclos 
PrintString 6 47/42 
PrintStringNull 7 51/45 


PrintStringEF 8 54/48 


Si vemos esta tabla, la rutina más optima es la primera ya que ocupa menos bytes y es más rápida. 
La realidad es que sí es más rápida, pero no ocupa menos bytes, ya que cada vez que la llamemos 
hay que añadir dos bytes de cargar en B la longitud de la cadena. Si usamos mucho esta rutina, 
rápidamente vemos que el ahorro de bytes no es tal. 


La opción lógica es la segunda rutina, que es más rápida y ocupa menos bytes que la tercera, pero 
como vamos a ver más adelante, tiene sus desventajas. 


TestPrint es un programa individual, para compilarlo tenemos que invocar PASMO desde la línea de 
comandos: 


pasmo --name TestPrint --tapbas TestPrint.asm TestPrint.bas 


Antes de continuar, vamos a compilar el programa TestPrint, lo cargamos en el emulador y vemos 
los resultados. 


Bytes: TestPrint. 


Hola Ensamblador 


a OK, 40: 1 


Z 


Como podemos ver, todo ha ido bien. Tenemos tres cadenas, y hemos pintado cada una con una 
rutina distinta. 


Vamos a ver ahora los inconvenientes de la segunda rutina, para lo cual vamos a modificar la 
segunda cadena, que ahora es: 


stringNull: 


db SILO, S07, SILIL, SOL, SIG, SO07, SUa, "hola Easamolacios"., S00 


Y vamos a modificar el segundo byte, $07, por $00. 


stringNull: 


db s10, $S00, sil, sol, Ssió, s07, S0a, "Bola Easamiolacio:z:", S00 


Compilamos, cargamos en el emulador y vemos los resultados. 


ñas Bera 


K Invalid colour, 40: 1 


Z 


Aquí hay algo que no funciona, pero ¿qué? Revisemos la definición de las cadenas. 


Siuningj: 


db SI0, SOS, BILL, SOS, SiG6, S05, BUa, "Miola Easamolacios2w 


stringE0F: 


db $00 


stringNull: 


db si0, S00, Sil, sal, sió6, s07, S0a, "Bola Easamo lacio", S00 


stringrFF: 


db si0, $02, Sil, SO7, Si6, $09, SO03, "Bola Easeaiolacio::", Si 


La segunda cadena, stringNull, la terminamos con $00 porque la rutina pinta hasta que se encuentra 
este valor. Todas las cadenas empiezan con $10, que es el código de INK, por lo que el siguiente 
byte debe ser un código de color, del $00 al $07. 


Cuando se pasa la cadena stringNull a la rutina PrintStringNull, lee el primer carácter, $10 (INK), 
lee el siguiente carácter, $00, y sale. 


Lo siguiente que hace el programa es cargar en HL la cadena stringFF y llamar a la rutina 
PrintStringFF. Esta rutina lee el primer carácter, $10 (INK), y lo pinta, pero como lo anterior 
también ha sido un INK, lo que espera ahora es un código de color, y lo que le pasamos es $10 (16), 
un color que no es válido, de ahí el mensaje K Invalid Colour, 40:1. 


Vamos a volver a modificar el segundo byte de la cadena stringNull, poniéndolo a $05, y vamos a 
modificar el segundo byte de la cadena stringFF, que ahora vale $02 y lo ponemos a $00. 


Compilamos, cargamos en el emulador y vemos los resultados. 


Bytes: TestPrint. 


Hola Ensamblador 


a OR, 40: 1 


57 


Como podemos ver, vuelve a funcionar y pinta la tercera cadena en color negro, $00, por lo que en 
esta ocasión nos decantamos por la rutina PrintStringFF. 


Copiamos el código de la rutina, abrimos el archivo Print.asm, localizamos la rutina PrintString y 
sustituimos el código de dicha rutina por el código que acabamos de copiar. El aspecto final de la 
rutina deber ser el siguiente: 


; Pinta cadenas terminadas en $FF. 


; Entrada: HL = primera posición de memoria de la cadena 


; Altera el valor de los registros AF y HL 


, 


Pasion E 

Lol a, (h1) ; Carga en A el carácter a pintar 

Ep) Sacie ; Comprueba si es S$FF 

ret Z ; De ser así sale 

sie O) ; Pinta el carácter 

O hl ; Apunta HL al siguiente carácter 

aja Exa Pin ; Bucle hasta que termine de pintar la cadena 


Ahora tenemos que modificar la definición de las cadenas y las llamadas a PrintString. 


Seguimos en el archivo Print.asm, localizamos la etiqueta PrintFrame y borramos la segunda y la 
quinta línea. 


lll h1l, frameTopGraph ; Carga en HL la dirección de la parte superior 


call Eras Bing ; Pinta la cadena 


ld hl1, frameBottomGraph ; Carga en HL la dirección de la parte inferior 


call Eras pin ; Pinta la cadena 


Localizamos la etiqueta PrintInfoGame y borramos la cuarta línea. 


ld ay SO ; Carga len A 
cat OPENCHAN ; Activa el canal 1, línea de comando 
Jal h1, infoGame ; Carga la dirección de la cadena de títulos en HL 


Abrimos el archivo Var.asm, localizamos la etiqueta infoGame y después de enemigos añadimos 
$FF. Borramos la etiqueta infoGame_end pues ya no tiene ninguna utilidad. 


infoGame: 


dla $10, $03, BL6, $00, 500 


db 'Vidas Puntos Nivel Enemigos', Sff 


Localizamos la etiqueta frameTopGraph y añadimos al final de la definición de los bytes $FF. En 
la siguiente etiqueta, frameBottomGraph, hacemos lo mismo y borramos la etiqueta frameEnd, que 
ya no tiene ninguna utilidad. 


frameTopGraph: 
cla SiS, 500, $00, SILO, SOL 


dla $96, 97, $97, 87, $597, $97, 97, 81M, 531, 597, $1, 597, $97, 97, EV, BI SS 
SIT? ITV. $677 $977, $977 $977 My EV SST, $977 5977 $977, 897, 7, $T, SEL 


frameBottomGraph: 
db $16, $14, $00 


¿ls Sa, S%e, $e, $9) $9, $e, $9, Sa, $%, $e, $9, $%, $%, $%, $9, $, $0, 
sde, S%He, $9, 98, Sd, S%, Se, Se, de, $%e, Se, Se, de, S%, SI, Su 


Compilamos (ahora ya lo volvemos a hacer ejecutando make o make.bat), cargamos en el emulador 
y comprobamos que todo sigue funcionando. También vemos que el programa ocupa ahora tres 
bytes menos; con cada línea que hemos quitado en la que cargábamos la longitud de la cadena en B, 
hemos reducido dos bytes (seis en total), pero al poner $ff al final de las cadenas hemos vuelto a 
añadir tres bytes. 


Inicio y fin de la partida 


Vamos a implementar una pantalla de inicio a modo de menú y dos finales, uno para cuando nos 
matan sin haber conseguido finalizar el juego, y otro para cuando logramos finalizar el juego. 


Inicio de la partida 


En la pantalla de inicio, vamos a mostrar un texto a modo de presentación, las teclas de control y la 
selección de los distintos tipos de control. 


Abrimos el archivo Var.asm y al inicio del mismo incluimos la definición de la pantalla de inicio. 


rules 


da “10, $02, SILO, $500, $08, WEADALEA DSPACcIiaL", 506, SOS, HOel, Sic 


firstScreen: 
do $10, $06, "Las naves alienigenas atacan la", $0d 
db "Tierra, el futuro depende de ti.", $0d, $0d 


db "Destruye todos los enemigos que", $0d 

db "puedas, y protege el planeta.", $0d, $0d, $0d 

ela) SILO, SOS, "24 => Izemierda”, 16, Sa, SID, E = Dezecias) 
dl SiS, $08, SU, “Y = Disp", 50d, SO 

dl SILO, SQ4, Wil = medilacio S = Simelals 1%. SO6!, SO0€6! 
do "2 - Kempston 4 = Simelaaj 2%. Sel, SOc!, Se! 

db $10, $05, "Apunta, dispara, esquiva a las", $0d 

db "naves enemigas, vence y libera", $0d 

db "al planeta de la amenza." 


cl ae 


Lo primero que hacemos es poner la tinta en rojo, $10, $02, luego posicionamos el cursor en la 
línea 0, columna 8, $16, $00, $08, pintamos el nombre del juego, BATALLA ESPACIAL, y 
añadimos tres retornos de carro, $0d, $0d, $0d. Seguimos definiendo el resto de líneas hasta que 
acabamos con el delimitador de cadena, $FF, que es valor que espera la rutina PrintString para 
saber hasta donde tiene que pintar. 


Abrimos ahora el archivo Print.asm y al final del mismo vamos a implementar la rutina que pinta la 
pantalla de inicio y que, más adelante, guardará la elección de controles que hayamos hecho. 


PrintFirstScreen: 

edil CS 

ld hl1, title 

een l ITUNE Sicic aio) 

ld Ss Leen 
eaull Brin seeing 


Limpiamos la pantalla, CALL CES, cargamos en HL la dirección de memoria en la que empieza la 

definición del título, LD HL, title, lo pintamos, CALL PrintString,cargamos en HL la dirección de 
memoria en la que empieza la definición de la pantalla, LD HL, firtScreen, y llamamos a la rutina 

que pinta las cadenas, CALL PrintString. 


Dado que más adelante vamos a permitir elegir entre cuatro tipo de controles, lo vamos a ir 
preparando. 


printFirstScreen op: 
la a, $E7 


in ay ($18) 


bit $00, a 

3% 0 TOMES Y 
canal FadeScreen 

Lee 


Cargamos en A la semifila 1-5, LD A, $F7, leemos el teclado, IN A, ($FE), comprobamos si se ha 
pulsado el uno (Teclado), BIT $00, A, y de no ser así sigue en bucle hasta que se pulse el uno, JR 
NZ, printFirstScreen_op. Realizamos el efecto de fundido de la pantalla, CALL FadeScreen, y 
salimos, RET. 


El aspecto final de la rutina es el siguiente: 


; Pantalla de presentación y selección de controles. 


; Altera el valor de los registros AF y HL. 


, 


Prinia pts sidsereent 


call (ÉS; ; Limpia la pantalla 

ld Il”. isla ; Carga en HL la definición del título 
SendLl ITUNE SicicaLiao) g Pica el Exñieulo 

ld hl, firstScreen ; Carga en HL la definición de la pantalla 
eedll PrintString ; Pinta la pantalla 


printFirstScreen op: 


JLo! ay 7 ; Carga en A la semifila 1-5 

in a, ($fe) ; Lee el teclado 

ISatie $00, a ; Comprueba si se ha pulsado el 1 

é nz, printFirstScreen op +; Si no se ha pulsado, sigue hasta que se pulse 
call FadeScreen ; Fundido de pantalla 

SE 


Es hora de comprobar si lo que acabamos de implementar funciona. Abrimos el archivo Main.asm, 
localizamos la etiqueta Main y dentro de la misma la llamada a pintar el marco, CALL 
PrintFirstScreen. Justo por encima de esta llamada vamos a incluir la llamada a la rutina que pinta 
la pantalla de inicio y que más adelante servirá para seleccionar el tipo de controles. 


Cad PrintFirstScreen 


Compilamos, cargamos en el emulador y vemos los resultados. 


Como podemos comprobar, ahora sale la pantalla de inicio, y no salimos de ella hasta que pulsamos 
el uno. Todavía quedan cosas por hacer, pero de momento lo dejamos así y seguimos con el fin de 


partida. 


Fin de la partida 


El fin de partida se puede dar de dos modos distintos: se nos acaban las cinco vidas de las que 


vamos a disponer y perdemos, o superamos el nivel treinta y ganamos. 


En base a lo expuesto en el párrafo anterior, vamos a definir dos pantallas de fin distintas. Volvemos 
al archivo Var.asm y tras la definición de firstScreen, añadimos las definición de las dos pantallas 


de fin. 

gameOverScreen: 

db $10, $06, "Has perdido todas tus naves, no", $0d 
db "has podido salvar la Tierra.", $0d, $0d 

db "El planeta ha sido invadido por", $0d 

db "los aliengenas.", $0d, $0d 

db "Puedes volver a intentarlo, de", S0d 

db "ti depende salvar la Tierra.", S$ff 
winScreen: 

db $10, $06, "Enhorabuena, has destruido a los" 
db "alienigenas, salvaste la Tierra.", $0d, $0d 
db "Los habitantes del planeta te", $0d 

db "estaran eternamente agradecidos.", $ff 


PRESS SsEMtEeSi: 


db $10, $04, 


$16, 


$10, $03, 


"Pulsa Enter para continuar", 


Sí£ 


Igual que hicimos con la pantalla de inicio, vamos a implementar las rutinas que impriman las 
pantallas de fin, y que esperen la pulsación de la tecla Enter para continuar. Vamos al archivo 
Print.asm, y nos situamos al final del mismo. 


La rutina que vamos a implementar, recibe en registro A el valor cero si es final de partida porque 
hemos perdido, y distinto de cero si es fin de partida porque hemos ganado. 


PrintEndScreen: 

push EE 

Call FadeScreen 

ld imdl, taljcle 

cadLl IE Scioli) 

pop af 

or a 

3)16 nz, printEndScreen Win 


Preservamos el valor de A, PUSH AF, hacemos el fundido de pantalla, CALL FadeScreen, 
apuntamos HL al inicio de la cadena del título, LD HL, title, y la pintamos, CALL PrintString. 
Recuperamos el valor de AF, POP AF, evaluamos si A vale cero, OR A, y saltamos si no es así, JR 
NZ, printEndScreen_Win. 


printEndScreen GameOver: 


ld hl, gameOverScreen 
ea l PrintString 
js printEndScreen WaitKey 


Si el valor de A es cero, apuntamos HL al inicio de la definición de la pantalla de fin de partida si 
hemos perdido, LD HL, gameOversScreen, la pintamos, CALL PrintString, y saltamos para esperar 
la pulsación de la tecla Enter, JR printEndScreen_WaitKey. 


printEndScreen Win: 
JLo! hl, winScreen 


eun PrintString 


Si el valor de A es distinto de cero, apuntamos HL al inicio de la definición de la pantalla de fin de 
partida si hemos ganado, LD HL, winScreen, y la pintamos, CALL PrintString. 


Preparamos el resto para esperar a que el jugador presione la tecla Enter. 


printEndScreen WaitKey: 


ld hl, pressEnter 
coll cae Sicic iia) 
Call PrintInfoGame 


Call PrintInfoValue 


Apuntamos HL al inicio de la cadena que pide que se pulse la tecla Enter, LD HL, pressEnter, la 
pintamos, CALL PrintString, pintamos los títulos de la información de la partida, CALL 
PrintInfoGame, y pintamos la información de la partida para mostrar al jugador el nivel al que ha 
llegado y los puntos que ha obtenido, CALL PrintInfoValue. 


printEndScreen WaitKeylLoop: 

ld a, Sb£ 

in a, ($fe) 

rra 

52 Cc, printEndScreen WaitKeyLoop 
exar dl FadeScreen 

ete 


Cargamos en A la semifila Enter-H, LD A, $BF, leemos el teclado, IN A, ($FE), rotamos el 
registro A hacia la derecha, RRA, y seguimos en bucle hasta que el flag de acarreo no esté activo, 
JR C, printEndScreen_WaitKeyLoop. Una vez que el Enter se ha pulsado, hacemos el fundido de 
pantalla, CALL FadeScreen, y salimos, RET. 


La forma en la que evaluamos si se ha pulsado el uno es la siguiente: cuando leemos del teclado la 
semifila Enter-H, el bit cero indica si el Enter se ha pulsado o no, a valor uno si no se ha pulsado y a 
cero si sí se ha pulsado. Al rotar el registro A hacia la derecha, el valor del bit cero se pone en el 
acarreo, de tal forma que si se activa, es que no se ha pulsado el Enter y si se desactiva, sí se ha 
pulsado. 


El aspecto final de la rutina es el siguiente: 


; Pantalla de fin de partida. 


; Entrada: A -> Tipo de fin, 0 = Game Over, !0 = Win. 


; Altera el valor de los registros AF y HL. 


PrintEndScreen: 


push af ; Preserva el valor de AF 
cola FadeScreen ; Fundido de pantalla 

ld Il”. Tasio ; Apunta HL al título 
Call ITUNE Sicicaliao) pg Pimica el teieuLo 

pop af ; Recupera el valor de AF 
or a ; Evalúa si A vale O 


38 ñÑz, printEnaScreen Win ; Si no vale 0, salta 


printEndScreen GameOver: 


ld hl, gameOverScreen ; Apunta HL a la pantalla de Game Over 
canal IE SicicaLal] ; La pinta 
56 printEndScreen WaitKey ¡; Salta a esperar pulsación de Enter 


printEndScreen Win: 
ld hl1, winScreen ; Apunta HL a la pantalla de Win 


cacall PrintString ; La pinta 


printEndScreen WaitKey: 


ld hl, pressEnter ¿; Apunta HL a la cadena 'Pulse Enter” 

senil IT E Sic icaLiao) ; La pinta 

en l PrintInfoGame ; Pinta los títulos de información de la partida 
cadll PrintInfoValue p Bilaica llos cerros ce la jpeumñulea 


printEndScreen WaitKeylLoop: 


va: SO ; Carga a semifila Enter-H en A 

EA! a (Ste) ; Lee el teclado 

rra ;¿ Rota Aa la derecha para ver estado del Enter 
y Cc, printEndScreen WaitKeyLoop ; Si hay acarreo no se ha pulsado, bucle 
cadall FadeScreen ; Fundido de pantalla 

ret 


Ahora tenemos que probar si nuestras pantallas de fin de partida se muestran bien, vamos al archivo 
Main.asm, localizamos la línea CALL PrintFirstScreen que hemos añadido antes, y justo por 
encima de ella vamos a añadir las siguientes líneas: 


xXOr a 

ea PrintEndScreen 
ld ay +01 

ceda PrintEndScreen 


Ponemos A a cero, XOR A, pintamos la pantalla de fin de partida, CALL PrintEndScreen, ponemos 
A auno, LD A, $01, y pintamos la pantalla de fin de partida. 


Compilamos, cargamos en el emulador y vemos el resultado. 


La primera llamada que hacemos a la rutina que pinta la pantalla de fin, la hacemos con A valiendo 
cero, de ahí que pinte la pantalla correspondiente a cuando hemos perdido todas nuestras vidas. 


Si presionamos la tecla Enter, ponemos A a uno y volvemos a llamar a la rutina, esta vez se pinta la 
pantalla correspondiente a cuando hemos superado los treinta niveles. 


Ahora si pulsamos Enter deberíamos ver la pantalla de inicio. 


Ahora tenemos que encajar todo esto para que cada cosa esté en su lugar. Lo primero que vamos ha 
hacer es eliminar las últimas cuatro líneas que hemos utilizado para probar la rutina 
PrintEndScreen y las vamos a sustituir por las siguientes para inicializar los datos de la partida: 


Main start: 


xor a 

JLo! hl, enemiesCounter 
ld (h1), $20 

inc hl 

ld (hl1), a ; $ld 

ns hl 


ld tad), SOL 7 $28 
inc h 

Jl! (a), $05 

ANS h 

Jos Na 

aiate h 

la (h1), a 

exauldl ChangeLevel 


Ponemos A a cero, XOR A. Apuntamos HL al contador de enemigos, LD HL, enemiesCounter, y lo 
ponemos a veinte en BCD, LD (HL), $20. Apuntamos HL al contador de niveles, INC HL, y lo 
ponemos a cero, LD (HL), A. Apuntamos HL al contador de niveles BCD, INC HL, y lo ponemos a 
cero, LD (HL), A. Apuntamos HL al contador de vidas, INC HL, y lo ponemos a cinco, LD (HL), 
$05. Apuntamos HL al primer byte del marcador de puntos en BCD, INC HL, y lo ponemos a cero, 
LD (HL), A. Apuntamos HL al segundo byte, INC HL, y lo ponemos a cero, LD (HL), A. Por 
último, llamamos al cambio de nivel para que reinicie los enemigos y cargue el nivel uno. 


En las líneas que cargamos el nivel hemos comentado los valores $1D y $29. Más adelante 
pondremos estos valores para probar el fin del juego superando tan solo el último nivel. 


Buscamos las líneas en las que cargamos el vector de interrupciones, desde DI hasta El, las 
cortamos y las pegamos justo encima de la etiqueta MainStart. 


Localizamos la etiqueta Main_loop y justo al final, encima de JR Main_loop añadimos la 
comprobación de si seguimos teniendo vidas. 


ld a, (livesCounter) 
or a 
eS Z, GameOver 


Cargamos en A en número de vidas, LD A, (livesCounter), comprobamos si son cero, OR A, y 
saltamos si es así, JR Z, GameOver. 


Localizamos la etiqueta Main_restart, y justo debajo de ella añadimos la comprobación de si hemos 
superado el último nivel. 


ol a, (levelCounter) 
cp $Sle 
316 Z, Win 


Cargamos en A el contador de nivel, LD A, (levelCounter), evaluamos si estamos en el último, CP 
$1E, y saltamos si es así, JR Z, Win. 


Localizamos la línea CALL ChangeLevel, que está casi al final de Main_restart, la cortamos y la 
pegamos debajo de CALL FadeScreen, siendo de esta manera la quinta línea de Main_restart. 


Vamos al final de Main_restart, y justo debajo vamos a implementar el fin de partida. 


GameOver: 


xor a 
cad PrintEndScreen 
Jp Main start 


Ponemos A a cero, XOR A, pintamos la pantalla de fin, CALL PrintEndScreen, y volvemos al 
inicio, JP MainStart. 


Win: 

ld a, $01 

call PrintEndScreen 
Jp Main start 


Ponemos A a uno, LD A, $01, pintamos la pantalla de fin, CALL PrintEndScreen, y volvemos al 
inicio, JP MainStart. 


Como podemos ver, en esta ocasión hemos usado JP en lugar de JR, debido a que si en Win 
ponemos JR Main_start nos da un error de salto fuera de rango. 


Vamos a realizar un nuevo cambio, en esta ocasión vamos a hacer que al cambiar de nivel la nave se 
pinte en la posición inicial. Vamos al archivo Game.asm, localizamos la etiqueta changeLevel_end 
y antes del RET añadimos lo siguiente: 


ld Sp BOS ; Apunta HL a la posición de la nave 


ko? (all) SES LINA p carga la ¡posicion ilmáleitell 


Apuntamos HL a la posición de la nave, LD HL, shipPos, y cargamos la posición inicial, LD (HL), 
SHIP_INT. Dado que el Z80 es Little Endian, HL apunta a la coordenada X de la nave y al cargar 
SHIP_INI en (HL), carga el segundo byte definido en SHIP_INT en la coordenada X de la nave, 
LD (HL), $11. 


Y llegamos a la hora de la verdad, compilamos cargamos en el emulador y si toda va bien, al perder 
las cinco vidas acaba la partida, Game Over. 


Volvemos a Main.asm y las líneas: 


ld (dul). E ¿ Slel 
inc hl 
ld (May, a ¿ 129 


Las dejamos como: 


Jl (Gai), la! 
inc hl 
ld (Gal), $2S 


Compilamos, cargamos y al iniciar la partida lo hacemos en el nivel treinta. Lo superamos y fin de 
partida, Win. 


Dado que hemos modificado varias cosas en Main.asm, el aspecto que debe tener ahora es el 
siguiente: 


org $S5dad 


?; Indicadores 


; Bit 0 -> se debe mover la nave 0 = No, 1 = Sí 
pp Baie l => gl chisjoeiso EStEÁ aACuivo 0 = No, 1 = Sí 
; Bit 2 -> se deben mover los enemigos 0 = No, 1 = Sí 


flags 

db $00 

Main: 

ld OZ 

cad OPENCHAN 

1 h1, udgsCommon 
ld (UDG), hl 
ld hl, ATTR_P 
ld (h1), $07 
Cad CLS 

xor a 

out ($fe), a 

Jal a, (BORDCR) 
and S0l0) 

ía 05 

ld (BORDCR), a 
di 

ld a, $28 

la Ral 

im 2 


Main start: 


xXOor a 

ld hl, enemiesCounter 
ld (h1), $20 

Ina hl 

ld (mi), E y Biel 
inc hl 

ld (au), E $ 529 
inc hl 

la (ML) y 209 

inc hl 

ls! (ad e 

ne hl 

ld (A 

caca! ChangeLevel 
san PrintFirstScreen 
eau l PrintFrame 

saul PrintInfoGame 
exaial Prantshlip 

eadlll PrintInfoValue 
jad l LoadUdgsEnemies 
eaulll PrintEnemies 


Main loop: 


Call CheckCtrl 

cala MoveFire 

push de 

coa CheckCrashFire 

pop de 

ld a, (enemiesCounter) 
cp $00 

JE ap Mesa resiente 


en l MoveShip 


call MoveEnemies 


cadll CheckCrashShip 
Jl a, (livesCounter) 
or a 

JE Z, GameOver 

3% Main loop 


Main restart: 


ld a, (levelCounter) 
59) $Sle 

se Z, Win 

Call FadeScreen 
een ChangeLevel 
san PrintFrame 

eau l PrintInfoGame 
saul Brito nato 

ecull PrintInfoValue 
aji Main loop 
GameOver: 

xXOor a 

cau PrintEndScreen 
Jp Main start 
Win: 

ld ay $01 

enla PrintEndScreen 
Jp Main start 


include "Const.asm" 
include "Var.asm" 

include "Graph.asm" 
maclmas Mrs sia” 


macitds "Ciel ase 


include "Game.asm" 


end Main 


Conclusión 


Llegados a este punto, ya podemos echar nuestras primeras partidas, aunque todavía nos quedan 
cosas por hacer. 


En el próximo capítulo implementaremos el control con joystick y daremos las posibilidad de 
obtener vidas extras. 


Ox0A Joystick y vida extra 


En este capítulo vamos a implementar los controles con joystick y a conseguir una vida extra cada 
quinientos puntos. Creamos la carpeta Paso10 y copiamos desde la carpeta Paso09 los archivos 
Cargador.tap, Const.asm, Ctrl.asm, Game.asm, Graph.asm, Int.asm, Main.asm, make o make.bat, 
Print.asm y Var.asm. 


Antes de nada vamos a implementar un retardo entre nivel y nivel, para que nos dé tiempo a 
prepararnos. 


Retardo 


Abrimos el archivo Game.asm y al final del mismo vamos a implementar la rutina que va a producir 
aproximadamente medio segundo de retardo. La ULA produce cincuenta interrupciones por 
segundo en sistemas PAL, sesenta en NTSC, y vamos a implementar un bucle que espera 
veinticinco interrupciones. 


ld b, $19 ; Carga veinticinco en B 


sllespuikoop: 


halt ; Espera a una interrupción 
djnz sleep Loop +; Hasta que B valga 0 
Ter 


No explicamos el código pues con los comentarios, y los conocimientos que tenemos hasta ahora, 
es suficiente para entenderlo. 


Para ver el funcionamiento de esta rutina, abrimos el archivo Main.asm, localizamos la etiqueta 
Main_start, y al final, justo después de CALL PrintEnemies, añadimos la llamada a la rutina de 
retardo. 


coll Sleep 


Localizamos la etiqueta Main_restart, y al final, justo antes de JR Main_loop, añadimos las 
siguientes líneas: 


cad PrintEnemies 


Call Sleep 


Ahora compilamos, cargamos en el emulador y vemos que desde que se pitan los enemigos, hasta 
que se mueven, hay un retardo. 


Joystick 


Dado que vamos a implementar los controles usando el joystick, además de las teclas, tenemos otras 
tres posibilidades distintas de control, y en algún sitio tenemos que guardar el tipo de controles que 
ha seleccionado el jugador. Abrimos el archivo Var.asm, localizamos la etiqueta enemiesCounter y 
justo por encima de ella agregamos una nueva etiqueta: 


controls: 


do $00 


Aquí vamos a guardar la selección de controles que ha hecho el jugador. 


Ahora abrimos el archivo Print.asm y localizamos la etiqueta printFirstScreen_op. Vamos a borrar 
las líneas BIT $00, A y JR NZ, printFirstScreen_op, pues las vamos a sustituir por la nueva 
implementación. El resto de líneas las dejamos y justo encima de CALL FadeScreen, vamos a 
añadir la líneas siguientes: 


printFirstScreen end: 
ld a, b 


¡os (controls), a 


Hemos añadido una nueva etiqueta, printFirstScreen_end, y según podemos ver, en B tenemos los 
controles que se han seleccionado, lo cargamos en A, LD A, B, y de ahí lo cargamos en memoria, 
LD (controls), A. 


Ahora vamos a implementar el resto de la rutina en el lugar donde estaban las líneas que hemos 
borrado, justo debajo de la lectura del teclado, IN A, ($FE). 


ld b, $01 

rra 

JE MNR S es mc enmienda! 
inc b 

rra 

3158 NOS Po cnecenmend: 
inc b 

rra 

31í5 MiS es mc enMmendl 
inc b 

rra 

Es Pin Pis ts cre ento. 


Conviene que recordemos que al leer el teclado, el estado de las teclas vienen en los bits del cero a 
cuatro, correspondiendo el bit cero con la tecla más alejada del centro del teclado y el cuatro con la 
más cercana. También conviene recordar que el bit viene a cero si la tecla se ha pulsado, y a uno si 
no se ha pulsado. 


Ponemos B a uno, la opción de teclas, LD B, $01, rotamos A a la derecha, poniendo el valor del bit 
cero (tecla 1) en el flag de acarreo, RRA, y si el flag de acarreo se ha desactivado, el bit estaba a 
cero, la tecla se ha pulsado y saltamos porque han seleccionado teclado, JR NC, 
printFirstScreen_end. 


Si el flag de acarreo está activo, incrementamos B para que contenga el valor dos (Kempston), 
volvemos a rotar poniendo el valor del bit cero (tecla 2 tras la rotación anterior) en el flag de 
acarreo, RRA, e igual que antes, salta si se ha desactivado el acarreo, JR NC, 
printFirstScreen_end. 


Si no se ha pulsado la tecla 2, rotamos y comprobamos las teclas 3 y 4, con especial atención al 
último JR, en este caso JR C, printFirstScreen_op. Si no se ha pulsado tampoco la tecla 4, el 
acarreo está activo y salta para volver a leer en teclado y estar en bucle hasta que se pulse alguna 
tecla del 1 al 4. 


El aspecto final de la rutina es el siguiente: 


; Pantalla de presentación y selección de controles. 


; Altera el valor de los registros AF y HL. 


, 


PrintFirstScreen: 


oa (ÉS ; Limpia la pantalla 

JLo! ml rates ; Carga en HL la definición del título 
Santi ¡STE SASicaLiao) ¿ Pánica el cmeulo 

Jl! hl, firstScreen ; Carga en HL la definición de la pantalla 
saul Exit Sii ; Pinta la pantalla 


printFirstScreen op: 


JE! a, $£7 ; Carga en A la semifila 1-5 

ETA Size) ; Lee el teclado 

ld 9, SO fp Carga ll En 1, Ojyelión teclas 

rra ; Rota Aa la derecha para saber si ha pulsado 1 
3 Sy) JN OS (Sol ; Si no hay acarreo, se ha pulsado y salta 
LO b ; Incrementa B, opción Kempston 

rra ; Rota Aa la derecha para saber si ha pulsado 2 
ES nc, printFirstscreen end ; Si no hay acarreo, se ha pulsado y salta 
ale Le ; Incrementa B, opción Sinclar 1 

rra ; Rota Aa la derecha para saber si ha pulsado 3 
ES NOS PS cnc nmend ; Si no hay acarreo, se ha pulsado y salta 
inc ha ; Incrementa B, opción Sinclar 2 


rra ; Rota Aa la derecha para saber si ha pulsado 4 


316 Sy Mime ESC 09 ; Si hay acarreo, no se ha pulsado, bucle 


printFirstScreen end: 


ld dy 19 ; Carga en A la opción seleccionada 
o! tsontrols), a ; Lo carga en memoria 

call FadeScreen ; Fundido de pantalla 

Le 


Y ahora hay que utilizar los controles que se hayan seleccionado, y lo primero que debemos saber 
es la manera de leer el joystick. 


En el caso de los joystick Sinclair, cada uno de ellos está mapeado con una semifila del teclado, en 
el caso del Kempston, no. Otra diferencia es que en el caso de los joystick Sinclair, las direcciones 
pulsadas vienen a cero, mientras que en los Kempston vienen a uno. 


A continuación, vemos una tabla en la que se detalla la manera de leer las pulsaciones del joystick, 
y en que bit tenemos cada dirección. 


Joystick  Semifila Puerto Arriba Abajo Izquierda Derecha Disparo 
Sinclair 1 SEF (0-6) SFE 1 2 4 3 0 
Sinclair2  $F7 (1-5) $FE 3 d 0 1 4 
Kempston $1F 3 2 1 0 4 


Con estos datos, ya podemos abrir el archivo Ctrl.asm y modificar rutina CheckCtrl para que tenga 
en Cuenta los cuatro tipos de controles disponibles. 


La primera línea de esta rutina es LD D, $00 y justo debajo de ella vamos a implementar la gestión 
de los controles. Borramos desde justo debajo de LD D, $00 hasta justo encima de RET, quedando 
de la siguiente manera: 


CheckCtrl: 
Jal al, SO ¿; Pone Dao0 
Let 


Al final de la rutina comprobábamos si se habían pulsado a la vez izquierda y derecha, 
checkCtrl_testLR, y de ser así omitíamos ambas pulsaciones. Vamos a prescindir de esta 
comprobación ya que si se pulsan las dos, la nave se moverá hacia la derecha (ver MoveShip en 
Game.asm) y quitando esta parte de la rutina ahorramos diez bytes y treinta y ocho o cuarenta y 
cuatro ciclos de reloj. 


Y ahora empezamos a implementar justo después de LD D, $00. 


la Ar Konatrolsy) 
dec a 


316 27 Ciel Sys 


316 Z, CheckCtrl Kempston 
dec a 
js 7 elaseliGrcial Sivacilenisel 


Cargamos en A los controles seleccionados por el jugador, que puede ser un valor que va del uno al 
cuatro, LD A, (controls), y decrementamos A, DEC A. Si A valía uno, tras el decremento vale cero 

y saltamos, JR Z, checkCtrl_Keys. Si no se ha seleccionado el teclado, decrementamos de nuevo A 
y comprobamos si se ha seleccionado Kempston, y si no es así hacemos los mismo para comprobar 
si se ha seleccionado Sinclair 1. Si no se ha seleccionado ninguna de las opciones anteriores, se ha 

seleccionado Sinclair 2. 


Anteriormente, para comprobar si se ha pulsado una tecla usábamos la instrucción BIT n, r, que 
ocupa dos bytes y tarda ocho ciclos de reloj. Dado que con una sola lectura al puerto obtenemos el 
estado de todas las direcciones, en esta ocasión vamos a utilizar rotaciones del registro A, que 
ocupan un byte y tardan cuatro ciclos de reloj. En concreto, vamos a utilizar un máximo de cinco 
rotaciones, ocupando cinco bytes y tardando veinte ciclos de reloj. La opción sería usar tres 
instrucciones BIT que ocupan seis bytes y veintiocho ciclos de reloj, por lo que con las rotaciones 
ahorramos bytes y ciclos de reloj. 


cisieliciciól Simeillaitis 28 

la a, $£7 

in a, ($fe) 

chsolCiil Simellamiic2 Sites 

rra 

312 ep Cee Siacileniica 101 Siome 
set $00, d 

cissliCiticll SiacilenticZ seleiaes 

rra 

3)15 e, cheekcurl SimelsirZ fica 
set SOL, el 


cisaljCril SimeallenlicZz dass 


and $04 
ei nz 

set 502, el 
met 


Cargamos en A la semifila 1-5, LD A, $F7, y leemos el teclado, IN A, ($FE). Rotamos A hacia la 
derecha para comprobar si se ha pulsado la dirección izquierda, RRA, y en caso de no haberse 
pulsado se activa el flag de acarreo y salta, JR C, chechCtrl_Sinclair2_right. Si sí se ha pulsado, 
activamos el bit cero de D, SET $00, D. 


Rotamos A hacia la derecha para comprobar si se ha pulsado la dirección derecha, RRA, y en caso 
de no haberse pulsado se activa el flag de acarreo y salta, JR C, chechCtrl_Sinclair2_fire. Si sí se 
ha pulsado, activamos el bit uno de D, SET $01, D. 


Ahora, el disparo lo tenemos en el bit dos, comprobamos si está pulsado, AND $04, y salta si no lo 
está, RET NZ. Si sí se ha pulsado, activamos el bit dos de D, SET $02, D y salimos, RET. 


Ahora vamos a gestionar la selección Kempston. 


checikStaalksmp som 
in ely (Sil) 


checkCtrl Kempston right: 


rra 
Ji nc, checkCtrl Kempston left 
set $01, d 


checkCtrl Kempston left: 


rra 
3152 no, Casals ISIMOSItOMn de 
set 500, d 


checkCtrl Kempston fire: 


and $04 
met 7 

set 502, el 
met 


Leemos el puerto treinta y uno, IN A, ($1F). Rotamos A hacia la derecha para comprobar si se ha 
pulsado la dirección derecha, RRA, y en caso de no haberse pulsado se desactiva el flag de acarreo 
y salta, JR NC, chechCtrl_Kempston_left. Si sí se ha pulsado, activamos el bit uno de D, SET $01, 
D. 


Rotamos A hacia la derecha para comprobar si se ha pulsado la dirección izquierda, RRA, y en caso 
de no haberse pulsado se desactiva el flag de acarreo y salta, JR NC, chechCtrl_Kempston_fire. Si 
sí se ha pulsado, activamos el bit uno de D, SET $00, D. 


Ahora, el disparo lo tenemos en el bit dos, comprobamos si está pulsado, AND $04, y salta si no lo 
está, RET Z. Si sí se ha pulsado, activamos el bit dos de D, SET $02, D y salimos, RET. 


La gestión de la selección Sinclair 1 y teclado es igual a la de Sinclair 2, cambiando el orden de 
comprobación de las direcciones, por lo que vamos a ver el aspecto final de la rutina. 


; Evalúa si se ha pulsado alguna de la teclas de dirección. 


; Las teclas de dirección son: 
E A => Izquierda 
a Xx => Derecha 


a V => Disparo 


¿ kemoston, Simelenlí 1 y Sábacillsals 2 


; Retorna: D => Teclas pulsadas. 
B ae 0. =3 Izquierda 
8 Bit L => Derecha 
5 Bit 2 => Disparo 


; Altera el valor de los registros A y D 


, 


CheckCtrl: 

ld al, $00 ; Pone Dao0 

ld a, (controls) ; Carga en A la selección de controles 
dec a ; Decrementa A 

sé a] inocua 5yS pS es 0 salta a comerzol ueolacio 

dec a ; Decrementa A 

els Z, CheckCtrl Kempston ; Si es 0 salta a control Kempston 

dec a ; Decrementa A 

sé 4  elseliCul Siaclealel ¿Ses 0 sales a comuzol Simellauiie 


g Comerol Simca 2 

cseliciciól Same laicas 

ld Ay BE7 ; Carga la semifila 1-5 en A 
in a, ($fe) ; Lee el teclado 


ceci Simellamiic2 Sres 


rra ; Rota A para comprobar izquierda 
36 Sp sedal Sila ileniic4 sil y Si ley ELEuzco, 19 aulsado, Seur 
set $00, d ; Si no hay acarreo, activa bit izquierda 


cisslCicial Simcileuticz sele s 


rra ; Rota A para comprobar derecha 
3% 2) dnecliicición SimelesaliZ ciigs y Si ley aceso, mo ¡9mlscolo, Sala 
set SOL el ; Si no hay acarreo, activa bit derecha 


ciseliCtidl SimclleniicZ dass 


and $04 ; Comprueba si el disparo está activo 
ret E F¿ Sil meo es cesa, mo ¡auuisacio,. seule 
set 502,7 el Pp Si €S CSLO, acuiya loli. clisjogiao 


ret ; Sale 


¿ Control Kempston 
checkCtrl Kempston: 
El8Tol al (SilaE) ; Lee el puerto 31 


checkCtrl Kempston right: 


rra ; Rota A para comprobar derecha 
ES nc, checkCtrl Kempston left ; Si no hay acarreo, no pulsado, salta 
set sl, el ; Si hay acarreo, activa bit derecha 


checkCtrl Kempston left: 


rra ; Rota A para comprobar izquierda 
45 na, Casa sCiriall SiosicoN mis y Sal ao) mel EVENTS), 110 usado, Séculical 
set s00, a ; Si hay acarreo, activa bit izquierda 


checkCtrl Kempston fire: 


and $04 ; Comprueba si el disparo está activo 
ret 4 ; Si es cero, no pulsado, sale 

set SO2, el Pp Sl me es cesa, acuiva lola elisjocuso 
ret ; Sale 


¿ Comuerzol Simelajsie 1 

ciseliCicil Simellenticils 

ld a, $ef ; Carga la semifila 0-6 en A 
in a, ($tfe) ; Lee el teclado 


cmhseliciciól Simelaiil talves 


rra ; Rota A para comprobar disparo 
ajja a) cms Sine ileniseil io pome ; Si hay acarreo, no pulsado, salta 
set OZ 0 FF OSL mo lay acteurs, active lote Clisjocuto 


clieliciciól Silmellaiiisdl calcita s 


rra 

rra 

rra ; Rota A para comprobar derecha 

Je Se, ¿heciCrzl Sinclaalsi lóte y Sil lay acarrso, mo jomlescolo, salia 
set SOL, El ; Si no hay acarreo, activa bit derecha 


checkSaalisincla miles 


rra ; Rota A para comprobar izquierda 

ret a ; Si hay acarreo, no pulsado, sale 

set 500), cl ; Si no hay acarreo, activa bit izquierda 
ret p Salle 


checkCtrl Keys: 


ld ESITS ; Carga la semifila Cs-V en A 
EAT a, ($fe) ; Lee el teclado 


casal Citi Sy lees 


¡ea 
rra ; Rota A para comprobar izquierda 

JE e, neclitician tela ; Si hay acarreo, no pulsado, salta 

set 500), el ; Si no hay acarreo, activa bit izquierda 


cacellCiticll_ seicjates 


rra ; Rota A para comprobar derecha 
ajos ey necliCicial tias ; Si hay acarreo, no pulsado, salta 
set Sl, El ; Si no hay acarreo, activa bit derecha 


casalctil tires 


and 502 ; Comprueba si el disparo está activo 
ret NE ; Si no es cero, no pulsado, sale 

set sO2, el Pp 1 €s cero, aculvya lol cltsjoeuao) 

ret ¿ Sale 


Compilamos, cargamos en el emulador y probamos los distintos controles. 


Vida extra 


Vamos a implementar que cada quinientos putos conseguidos el jugador obtenga una vida extra. 


Vamos al archivo Var.asm, localizamos la etiqueta pointsCounter, y justo debajo de ella vamos a 
añadir una nueva etiqueta: 


extraCounter: 


dw  $0000 


En extraCounter vamos a controlar el acumulado de puntos, hasta que llegue a quinientos, para dar 
una vida extra. 


El siguiente paso es inicializar el valor de extraCounter con cada inicio de partida. Vamos al 
archivo Main.asm, localizamos la etiqueta Main_start, y nos fijamos en las primeras líneas: 


xor a 

JLo! hl, enemiesCounter 
ld (h1), $20 

inc hl 

ld Mi), E 7 Slel 

aime hl 

ld A). EL 2D 

inc hl 

ld (h1), $05 


inc ImdL 


JLo! (a 
ae hl 
ld (uy, al 


En esta parte inicializamos los valores de la partida, y como vemos ocupa diecisiete bytes y tarda 
noventa y dos ciclos de reloj. Cada pareja de instrucciones INC HL y LD (HL), A, ocupa dos bytes 
y tarda trece ciclos de reloj. Dado que tendríamos que añadir dos parejas más para inicializar los dos 
nuevos bytes que hemos añadido con la etiqueta extraCounter, añadiríamos cuatro bytes y 
veintiséis ciclos de reloj, resultando en un total de veintiún bytes y ciento dieciocho ciclos de reloj, 
además de que el código crece de manera repetitiva. 


En lugar de inicializar los valores como hacemos ahora, vamos a usar la instrucción LDIR, que 
copia el valor de la posición memoria a la que apunta el registro HL en la posición de memoria a la 
que apunta el registro DE. Tras la copia, incrementa HL, incrementa DE y decrementa BC. Repite 
estas operaciones hasta que BC sea cero. 


Borramos el código que usamos para inicializar los valores y lo sustituimos por el siguiente: 


ld hl, enemiesCounter 

la de, nemiesCounter + 1 
Jlgel (h1), $00 

ld e) 0 

Jchtie 

ld a, $05 

ld (livesCounter), a 


Apuntamos HL a la posición de memoria dónde se encuentra el contador de enemigos, LD HL, 
enemiesCounter, y apuntamos DE a la posición siguiente. 


Ponemos la posición de memoria a la que apunta HL a cero, LD (HL), $00, cargamos en BC el 
número de posiciones que vamos a poner a cero, además de la primera, LD BC, $08, y ponemos a 
cero el resto de posiciones de memoria, LDIR. 


No todos los valores se inician a cero, las vidas se inician a cinco, por lo que cargamos cinco en A, 
LD A, $05, y lo subimos a memoria, LD (livesCounter), A. 


De la manera en la que acabamos de implementar la inicialización, el código ocupa dieciocho bytes 
y tarda ochenta y un ciclos de reloj, por lo que hemos ganado bytes y tiempo de proceso. De igual 
manera, el código queda más legible, y en el caso de que necesitemos añadir algún byte más que 
haya que inicializar, solo tendremos que cambiar el valor que cargamos en BC. 


El aspecto final del inicio de Main_start es el siguiente: 


Main start: 
Je! hl, enemiesCounter 


la de, nemiesCounter + 1 


ld (h1), $00 


ld 908, SOS 


Jolla 

ld ay $09 

Jal (livesCounter), a 
ena l ChangeLevel 


Ya solo queda la parte final, acumular puntos en extraCounter, dar una vida extra y poner el 
contador a cero al llegar a quinientos puntos. 


Vamos al archivo Game.asm, localizamos la etiqueta ChecCrashFire y vamos al final de la misma 
y vemos que el aspecto es el siguiente: 


ld (pointsCounter + 1), a ; Actualiza el valor en memoria 
(nl PrintInfoValue ; Pinta la información de la partida 
ret ; Sale de la rutina 


checkCrashFire endLoop: 


TAO hl ; Apunta HL a la coordenada Y del siguiente enemigo 
djnz checkCrashFire loop ; Bucle mientras B > 0 
ee 


La parte en la que vamos a acumular los puntos para lograr la vida extra va entre las líneas LD 
(pointsCounter + 1), A y CALL PrintInfoValue, así que procedemos: 


ud hl, (extraCounter) 
ld e) ¿0003 

add MA e 

o? (extraCounter), hl 
ld bc, $01f4 

sbca A o 

Ji nz, CcheckCrashFire cont 
la (extraCounter), hl 
JLo! a, (livesCounter) 
aa a 

daa 

Jal (livesCounter), a 


checkCrashFire cont: 


Si se llega a esta parte de la rutina es porque se ha alcanzado a un enemigo y hemos sumado cinco 
puntos. 


Cargamos el contador de puntos para vida extra en HL, LD HL, (extraCounter), cargamos los cinco 
puntos que vamos a sumar en BC, LD BC, $0005, se lo sumamos a HL, ADD HL, BC, y lo 
actualizamos en memoria, LD (extraCounter), HL. 


Cargamos en BC quinientos, LD BC, $01F4, se lo restamos a HL, SBC HL, BG, y si el resultado 
no es cero saltamos pues no se ha llegado a quinientos puntos, JR NZ, checkCrashFire_cont. Si el 
valor de HL tras la resta fuera cero, sí habríamos llegado a quinientos puntos. 


SBC es la resta con acarreo, la única resta que nos permite realizar el Z80 al operar con registros de 
16 bits. En este caso concreto, es muy importante que el flag de acarreo este desactivado, cosa que 
sabemos que es así pues antes de la resta hemos sumado cinco a HL y, en nuestro caso, el valor de 
HL nunca va a superar quinientos. 


Si no hemos saltado es porque el valor de HL había llegado a quinientos, ahora es cero. 
Actualizamos el contador en memoria poniéndolo a cero, LD (extraCounter), HL, cargamos el 
contador de vidas en A, LD A, (livesCounter), incrementamos A para añadir una vida, INCA, 
hacemos el ajuste decimal, DAA, y actualizamos el valor en memoria, LD (livesCounter), A. Por 
último, antes de la línea CALL PrintInfoValue, añadimos la etiquetaaa la que salta si no hemos 
llegado a quinientos puntos, checkCrashFire_cont. 


El aspecto final de la rutina es el siguiente: 


; Evalúa las colisiones del disparo con los enemigos. 


; Altera el valor de lo registros AF, BC, DE y HL. 


, 


CheckCrashFire: 
Ml a, (flags) ¿ Carga los flags en A 
and $02 ; Evalúa si el disparo está activo 
ret zz ¿ Si no está activo, sale 
ld de, (firePos) ; Carga en DE la posición del disparo 
ld hl1, enemiesConfig ; Apunta HL a la definición del primer enemigo 
ld b, enemiesConfigEnd - enemiesConfiglni ; Carga en B el número de bytes 
; de la configuración de los enemigos 
sra b ; Lo divide entre dos, B = número d nemigos 


checkCrashFire loop: 


JLo! Ely. (al) ; Carga en A la coordenada Y del enemigo 
AO, hl ; Apunta HL a la coordenada X del enemigo 
¡aLiE $07, a ; Evalúa si el enemigo está activo 

3 z, CheckCrashFire endLoop f Sil m0 esta acrLiyo, sella 


and SLsE ; Se queda con la coordenada Y de enemigo 


cp da 


gjié nz, CcheckCrashFire endLoop 
Jl! A (a) 7 
and sif ; 
cp e ; 
y nz, CcheckCrashFire endLoop 
dec hl E 
res SOT, (m1) ; 
ld 19 el ; 
ld Cc, e ; 
Cad. DeleteChar $ 
¡os a, (enemiesCounter) E 
dec a É 
daa ; 
ld (enemiesCounter), a $ 
JLel a, (pointsCounter) E 
add a, $05 ; 
daa ; 
ld (pointsCounter), a E 
ld a, (pointsCounter + 1) E 
ade a, $00 ; 
daa ; 
ld (PON Es Count O 
Ya: hl, (extraCounter) o 
ld bc, $0005 ; 
add Al 9 s 
Ml (extraCounter), hl E 
ld bc, $01f4 ; 
sbce PS a E 
32 0, Caeatrasimilis cof $ 
ko: (extraCounter), hl z 
ld a, (livesCounter) A 
inc a ; 
daa ; 
ld (livesCounter), a A 


che ckerasaititnege Omni 


Call PrintInfoValue 


, 


Lo compara con la coordenada Y del disparo 
; Si no son iguales salta 

Carga en A la coordenada X del enemigo 

Se queda con la coordenada X 

Lo compara con la coordenada X del disparo 


; Si no son iguales, salta 


Apunta HL a la coordenada Y del enemigo 
Desactiva el enemigo 

Carga la coordenada Y del disparo en B 
Carga la coordenada X del disparo en C 


Borra el disparo y/o el enemigo 


Carga en A el número d nemigos 

Resta uno 

Hace el ajuste decimal 

Actualiza el valor en memoria 

Carga en A las unidades y decenas 

Suma 5 

Hace el ajuste decimal 

Actualiza el valor en memoria 

Carga en A las centenas y unidades de millar 
Suma 1 con acarreo 


Hace el ajuste decimal 


Actualiza el valor en memoria 

Carga en HL el contador de vida extra 
Carga 5 en BC 

Se lo suma a HL 

Lo carga en memoria 

Carga 500 en BC 

se lo esta a ill 

Si el resultado no es 0, salta 

Si es 0, pone a cero el contador de vida extra 
Carga en A el contador de vidas 

Suma una vida 

Hace el ajuste decimal 


Actualiza en memoria 


Pinta la información de la partida 


ret ; Sale de la rutina 


checkCrashFire endLoop: 


inc hl ; Apunta HL a la coordenada Y del siguiente enemigo 
djnz checkCrashFire loop ¿ Bucle mienurzas la > 0) 
ett 


Compilamos, cargamos en el emulador y vemos los resultados; cada quinientos puntos conseguimos 
una vida extra. 


Para poder verificar que funciona, podemos iniciar la partida con el extraCounter a $1EF (495), de 
tal manera que al alcanzar un enemigo conseguiremos una vida. 


También podéis hacer algo de lo que quizá ya os hayáis percatado, al iniciar el nivel, con el disparo 
pulsado, desplazaos hacia la derecha y quedaos allí, iréis pasando casi todos los niveles sin que os 
maten. Este es un aspecto que tenemos que cambiar, de lo contrario se pueden pasar los treinta 
niveles usando esta técnica. 


Cambio del disparo 


Lo primero que vamos a hacer es cambiar el disparo, a ver si así solucionamos algo. Seguimos en el 
archivo Game.asm, localizamos la etiqueta MoveFire, y tras la primera linea, LD HL, flags, 
añadimos las siguientes: 


alte $00, (hl) 


ret BZ 


Comprobamos si el bit cero está activo, BIT $00, (HL), y salimos si no lo está. 


El bit cero de flags es el que indica si debemos mover la nave, de manera que ahora el disparo se 
mueve con la misma cadencia que la nave. 


Compilamos, cargamos en el emulador y vemos los resultados. 


Como podréis comprobar vosotros mismos, la técnica de desplazarse haca la derecha ya no resulta, 
pero a mi me gusta más que el disparo de la sensación de que es continuo, y además habría que 
pulir algo más el movimiento ya que cuando quedan pocos enemigos, se queda parado. 


Vamos a comentar las dos líneas que hemos añadido pues la solución va a estar en modificar el 
comportamiento de los enemigos. 


Conclusión 


En este capítulo hemos implementado un retardo para el cambio entre niveles, el control por 
joystick y la consecución de vidas extra. También hemos visto un truco para pasar todos los niveles 
sin el más mínimo esfuerzo, y hemos probado a cambiar el comportamiento del disparo para evitar 
esto, pero no nos ha convencido. 


En el próximo capítulo vamos a centrarnos en modificar el comportamiento de los enemigos. 


0x0B Comportamiento de los enemigos 


En este capítulo nos vamos a centrar en el comportamiento de los enemigos. 


Aunque al inicio del tutorial comenté que el desarrollo estaba hecho y que lo único que iba a hacer 
es tutorizarlo, la realidad es que según he ido revisando el código, he ido cambiando cosas con 
respecto del original, y una de ellas es en lo relativo al comportamiento de los enemigos. 


Creamos la carpeta Paso11 y copiamos desde la carpeta Paso10 los archivos Cargador.tap, 
Const.asm, Ctrl.asm, Game.asm, Graph.asm, Int.asm, Main.asm, make o make.bat, Print.asm y 
Var.asm. 


Cambios de dirección 


Para dar la sensación de que el movimiento de los enemigos es algo menos previsible, vamos a 
hacer que cada cuatro segundos se cambie la dirección de los mismos. En el programa original 
usaba una rutina que generaba números pseudoaleatorios, cosa que voy a simplificar en esa ocasión. 


Lo primero que vamos a hacer es abrir el archivo Main.asm, localizamos la etiqueta flags al inicio 
del mismo, y añadimos un comentario para el bit tres. 


?¿ Indicadores 

; Bit 0 -> se debe mover la nave 0 = No, 1 = Sí 
flaite Ll => Gl cisioamo está activo 0 = No, 1 = Sí 
; Bit 2 -> se deben mover los enemigos 0 = No, 1 = Sí 
; Bit 3 -> cambia dirección enemigos 0 = No, 1 = sí 
flags 

db $00 


Cada cuatro segundos, activaremos el bit tres y se cambiará la dirección de los enemigos. 


Para que el cambio de dirección de los enemigos no sea siempre el mismo, vamos a utilizar una 
etiqueta auxiliar; abrimos el archivo Var.asm, localizamos la etiqueta extraCounter y añadimos las 
líneas siguientes: 


; Valores auxiliares 


swEnemies: 
db $00 
enemiesColor: 


db $06 


La etiqu 
vamos a 


eta que vamos a usar es swEnemies. Como podéis ver, he añadido otra etiqueta más, que 
usar para añadir un pequeño efecto de color a los enemigos. 


Ahora vamos a implementar la rutina que va a realizar el cambo de dirección de los enemigos. 
Abrimos el archivo Game.asm, e implementamos al principio la rutina que cambia la dirección de 
los enemigos. 


ChangeEnemies: 

a hl, flags 

bit $03, (h1l) 

SE Zs 

res SOS. (Wan) 

ld b, $14 

ie h1l, enemiesConfig 
dE a, (swEnemies) 

ld ey a 


Cargamos en HL la dirección de los flags, LD HL, flags, comprobamos si el bit de cambio de 
dirección está activo, BIT $03, (HL), y salimos si no lo está, RET Z. 


Desactivamos el bit si está activo, RES $03, (HL), cargamos en B el número total de enemigos, LD 
B, $14, cargamos en HL la dirección de la configuración de los enemigos, LD HL, enemiesConfig, 
cargamos en A el valor de la etiqueta auxiliar que usamos para el cambio de dirección de los 
enemigos, LD A, (swEnemies), y preservamos el valor cargándolo en C, LD C, A. 


changeEnemies loop: 

JOA $07, (h1) 

3ji6 z, ChangeEnemies endLoop 

inc hl 

la o 

and $3£ 

OE e 

ld A 

dec hl 

ld a, € 

add a, $40 

ld ej al 
Comprobamos si el enemigo está activo, BIT $07, (HL), y saltamos si no lo está. 
La dirección del enemigo está en los bits seis y siete del segundo byte de la configuración, por lo 


que apuntamos HL a este segundo byte, INC HL, cagamos el valor en A, LD A, (HL), desechamos 


la dirección actual del enemigo, AND $3F, agregamos la nueva dirección, OR C, y la actualizamos 
en memoria, LD (HL), A. 


Apuntamos HL de nuevo al primer byte de la configuración, DEC HL, cargamos la nueva dirección 
en A, LD A, C, sumamos uno a la nueva dirección ($40 = 0100 0000), ADD A, $40, y cargamos el 
valor en C, LD C, A. 


changeEnemies endLoop: 


no IL 
inc hl 
djnz changeEnemies loop 


Apuntamos HL al primer byte del siguiente enemigo, INC HL, INC HL, y repetimos hasta que B 
valga cero y hayamos recorrido los veinte enemigos, DINZ chengeEnemies_loop. 


changeEnemies end: 

ld NS 

ld (swEnemies), a 
Sil 


Cargamos la nueva dirección en A, LD A, C, actualizamos el valor en memoria para la próxima vez 
que haya que cambiar la dirección, LD (swEnemies), A, y salimos, RET. 


El aspecto final de la rutina es el siguiente: 


; Cambia la dirección de los enemigos. 


; Altera el valor de los registros AF, BC y HL. 


ChangeEnemies: 


JLo! nl, Elags ; Carga la dirección de memoria de flags en HL 

labia 503, (Wal) ; Comprueba si el bit 3 (cambio dirección) está activo 
ret Z ¿ SL mo es cs, sele 

res s03, (al) ; Desactiva el bit 3 de flags 

ld ly Suda ; Carga en B el número total de enemigos (20) 

ld hl1, enemiesConfig ; Cara en HL la dirección de la configuración 


; de los enemigos 


ld a, (swEnemies) ; Carga en A el auxiliar para cambiar la dirección 


ld Sa El ; Preserva el valor en C 


changeEnemies loop: 


bit 07, (m1) ; Comprueba si el enemigo está activo 


Jn z, ChangeEnemies endLoop +; Si no lo está, salta a final del bucle 

TE hl ; Apunta HL al segundo byte de la configuración 
Ios a MAL) ¿ Carga el valor en HL 

and Sue ; Desecha la dirección 

or E ; Agrega la nueva dirección 

ld (Ga ; Actualiza la dirección en memoria 

dec hl ; Apunta HL al primer byte de la configuración 

Jl AE ; Recupera la nueva dirección 

add ISO “Le suma uno a la dirección ($10 => 010050000) 

la a ; Preserva la nueva dirección en C 


changeEnemies endLoop: 


INE hl ; Apunta HL al primer byte de la configuración 
E hl ; del siguiente enemigo 
djnz changeEnemies loop ; Hasta que B sea cero (20 enemigos) 


changeEnemies end: 


ld El ía ; Recupera la nueva dirección 
Jal (swEnemies), a ; La actualiza en memoria 
er 


A esta nueva rutina hay que llamarla desde el bucle principal del programa. Volvemos al archivo 
Main.asm, localizamos la etiqueta Main_loop, localizamos la línea CALL MoveShip, y justo debajo 
de ella y antes de CALL MoveEnemies, añadimos la siguiente línea: 


¡cad 


ChangeEnemies 


Si queréis, podéis compilar, cargar en el emulador y ver que todo sigue funcionando igual, no 
hemos roto nada, pero tampoco se produce el cambio de dirección, debido a que en ningún 
momento estamos activando el bit tres de flags. 


Abrimos el archivo Int.asm para implementar la activación de este bit cada cuatro segundos (en 
sistemas PAL), dando uso así a las interrupciones. 


Lo primero que vamos a hacer es añadir una constante al inicio del archivo, justo por debajo de 
ORG $7E5C: 


mis EQU $08 


A Tl1 le asignamos un valor de $C8, doscientos en decimal, que resulta de multiplicar cincuenta, 
que son las interrupciones que tenemos por segundo en sistemas PAL, por cuatro segundos. 


Al final del archivo vamos a añadir una etiqueta que vamos a usar para llevar el conteo de las 
interrupciones hasta que lleguen a doscientas, cuatro segundos. 


couniie db $00 


Y ahora vamos a modificar la rutina de la interrupción. Localizamos la etiqueta Isr_end, y justo por 
encima de ella implementamos la parte con la que se controlan los cuatros segundos de los que 
venimos hablando. 


Sie Tis 

Al 2 téounttiy 
aia a 

1 (ESUNETIA a 
sub ATA 

12 nz, src end 
Mel ¡dereedes ci 
set $03, (m1) 


Cargamos el valor del contador en A, LD A, (countT1), incrementamos A, INC A, y actualizamos el 
valor del contador, LD (countT1), A. 


Restamos el número de interrupciones que hay que alcanzar para activar el flag de cambio de 
dirección, SUB T1, y saltamos si no se ha alcanzado, JR NZ, Isr_end. 


Si se han alcanzado los cuatros segundos (doscientas interrupciones), el resultado de la resta 
anterior es cero, y con ese valor actualizamos el contador, LD (countT1), A, y por último activamos 
el bit de cambio de dirección, SET $03, (HL). 


Hay que cambiar otra línea. Tres líneas por encima de Isr_T1, encontramos la línea JR NZ, 
Isr_end. Esta línea hay que cambiarla dejándola de la siguiente manera: 


an ga ls TIL 


Ahora sí, compilamos, cargamos en el emulador y comprobamos que, cada cuatro segundos, los 
enemigos cambian de dirección. De igual manera vemos que lo de irse a la derecha y disparar ya no 
da tan buen resultado, en el primer nivel quizá sí, pero en los siguientes, no. 


Ahora obligamos al jugador a moverse por la pantalla, pero la velocidad a la que se mueven los 
enemigos no permite ver bien hacia dónde van, por lo que deberíamos bajar dicha velocidad. 
Volvemos a Int.asm, localizamos la parte en la que se activa el bit para mover los enemigos: 


Ta a, (countEnemy) 
inc a 

La (countEnemy), a 
sub $02 

Aus mp sie “El 

la (countEnemy), a 
set $02, (h1) 


Y cambiamos SUB $02 por SUB $03. 


Compilamos, cargamos en el emulador y comprobamos que ahora es más llevadero. Ajustad la 
velocidad como más os guste. 


Todavía tenemos que trabajar más en el comportamiento de lo enemigos, pero ahora vamos a añadir 
un efecto de color. 


Cambio de color 


Como comenté anteriormente en este capítulo, vamos a añadir un efecto de color al movimiento de 
los enemigos, para ello hemos añadido la etiqueta enemiesColor en Var.asm. 


El efecto va a consistir en cambiar el color de los enemigos desde uno (azul) a siete (blanco) cada 
vez que se muevan. 


Vamos al archivo Print.asm y localizamos la etiqueta PrintEnemies, y justo debajo de ella vamos a 
añadir la implementación del efecto de color. 


Lo primero es cambiar la primera línea de la rutia, LD A, $06. 


ld a, (enemiesColor) ; Carga en A la tinta 


De esta manera, el color en el que se pintan los enemigos lo tomamos de la nueva etiqueta. 


La primera vez que pintamos los enemigos en un nivel, lo hacemos en amarillo. Vamos al archivo 
Game.asm, localizamos la etiqueta ChangeLevel, y al inicio de la misma añadimos estas dos líneas: 


ld a, $06 ; Carga el color amarillo en A 


ld (enemiesColor), a ¿; Actualiza el color en memoria 


Si ahora compilamos y cargamos en el emulador, debemos seguir viendo como los enemigos se 
pintan en amarillo. 


Seguimos en el archivo Game.asm y localizamos la etiqueta MoveEnemies, cuyo aspecto inicial es 
el siguiente: 


MoveEnemies: 


Jl! in, Elage ; Cargamos la dirección de memoria de flags en HL 
¡Dalia OZ, (Una) ; Comprueba si el bit 2 está activo 

ret Z ; Si no es así, sale 

res SOZ27 (Un) ; Desactiva el bit 2 de flags 

Jl! al Sila! ; Carga en D el número total de enemigos (20) 

ld h1l, enemiesConfig ; Carga en HL la dirección de la configuración 


; de los enemigos 


moveEnemies loop: 


La implementación del cambio de color la vamos a realizar justo después de la línea RES $02, 
(HL). 


JLo! a, (enemiesColor) 
ns a 

cp $08 

ie Cc, MmoveEnemies cont 
ld a, $01 


moveEnemies cont: 


ld (enemiesColor), a 


Cargamos en A el color de los enemigos, LD A, (enemiesColor), lo incrementamos, INC A, 
comprobamos si hemos llegado a ocho, CP $08, y saltamos si no lo hemos hecho, JR C, 
moveEnemies_cont. Si no hemos saltado, hemos llegado a ocho y ponemos el color en azul, LD A, 
$01. Por último, actualizamos el color en memoria, LD (enemiesColor), A. 


El aspecto del inicio de la rutina queda de la siguiente manera: 


MoveEnemies: 


JLo! Il”. Elags ; Carga la dirección de memoria de flags en HL 


OLE $02, (h1) 


mea Z 

res S02, (mL) 

ld a, (enemiesColor) 
ali a 

cp $08 

Ji Cc, MmoveEnemies cont 
ld a, $01 


moveEnemies cont: 


ld (enemiesColor), a 
ld al, $14 
Lal h1l, enemiesConfig 


moveEnemies loop: 


, 


Comprueba si el bit 2 está activo 
Si no es así, sale 


Desactiva el bit 2 de flags 


Carga el color de los enemigos en A 
Lo incrementa 

Comprueba si ha llegado a 8 

Si no ha llegado, salta 


Pone el color en azul 


Actualiza el color en memoria 
Carga en D el número total de enemigos (20) 
Carga en HL la dirección de la configuración 


de los enemigos 


Compilamos y cargamos en el emulador. Ahora sí podemos ver como los enemigos cambian de 


color. 


Hasta ahora hemos ido cambiando el comportamiento de los enemigos, primero para que situarnos 
en una parte de la pantalla no nos permita superar los treinta niveles sin más, y segundo para dar un 


poco más de vistosidad. 


Ha llegado el momento de abarcar el cambio más importante, vamos a dotar a nuestros enemigos de 


disparo. 


Disparos enemigos 


El disparo de los enemigos se va a activar cuando estén encima de nosotros y va a haber un máximo 
de cinco disparos activos a un mismo tiempo. 


El primer paso es declarar las constantes que vamos a necesitar, abrimos Const.asm y localizamos la 
etiqueta WHITE_GRAPH que actualmente es una directiva EQU con el valor $9e, código de 
carácter que se corresponde con el gráfico que hemos definido para el carácter en blanco, lo cual es 
innecesario ya que el carácter en blanco ya está definido, es el carácter $20 (32). Dejamos la línea 
de la siguiente manera: 


WHITE GRAPH:EQU $20 


Ahora localizamos la etiqueta ENEMY_TOP_R y justo debajo vamos a añadir las constantes para el 
número total de enemigos, el código de carácter para el disparo del enemigo y el número de 
disparos que puede haber activos a un mismo tiempo. 


ENEMIES: EQU $14 
ENEMY GRA _F: EQU $9%e 
FIRES: EQU $05 


Como podemos observar, el código de carácter $9e va a ser ahora el disparo de los enemigos. 


Abrimos el archivo Var.asm, localizamos la etiqueta udgsCommon y nos vamos a la última línea: 


db $00, $00, $00, $00, $00, $00, $00, $00 ; $% Blanco 


Modificamos esta línea y la dejamos como sigue: 


dla 500, SS, Se, $20, $22, SA, SL, S00 ; $% Disparo enemigo 


Si hicisteis las prácticas del capítulo 0x01 Definición de gráficos, deberíais ser capaces que dibujar 
en papel o en las plantillas que se proporcionaron las representación del disparo enemigo, solo 
tenéis que hacer la conversión de hexadecimal a binario. 


Justo encima de la etiqueta udgsCommon vamos a añadir etiquetas para la configuración de los 
disparos enemigos, y para llevar la cuenta de cuántos de ellos están activos. 


; Configuración de los disparos de los enemigos 


; 2 bytes por disparo. 


; Byte 1 Byte 2 

¿ Bit 0-4: Posición Y Bit 0-4: Posición X 
pS Bale 58 Libre Bat 58 Libre 

p Bite 68 Libre Bate Ss Libre 

o Bali 78 Sr ivo 1/0 | Bite 7 Libre 
enemiesFire: 


defs FIRES * $02 


enemiesFireCount: 


de $00 


Con DEES reservamos tantos bytes como sea el resultado de multiplicar FIRES (número máximo 
de disparos enemigos a un mismo tiempo) por dos (dos bytes por disparo). Como podéis ver, la 
configuración de los disparos enemigos guardan cierta similitud con la configuración de los 
enemigos. 


Abrimos el archivo Game.asm y vamos a empezar con la implementación necesaria para que 
nuestros enemigos disparen y nos pongan las cosas más difíciles. 


Vamos a implementar una rutina que desactive todos los disparos enemigos, que llamaremos cada 
vez que iniciemos un nuevo nivel. Esta rutina la vamos a poner justo antes de la rutina Sleep. 


ResetEnemiesFir 

ile! hl, enemiesFire 

ld de, enemiesFire + $01 
ld ne; HuUES + 0% 

ld (h1), $00 

ldir 

SE 


Apuntamos HL al primer byte de la configuración de los disparos enemigos, LD HL, enemiesFire, 
apuntamos DE al byte siguiente, LD DE, enemiesFire + $01, cargamos en BC el número de bytes 
que vamos a limpiar, LD BC, FIRES * 02, limpiamos el primer byte, LD (HL), $02, limpiamos el 
resto de bytes, LDIR, y salimos, RET. 


En realidad también estamos limpiando (poniendo a cero) el contador de disparos activos, lo cual no 
nos va a suponer ningún problema. No obstante, si lo queréis evitar podéis añadir DEC BC antes de 
LDIR. 


El aspecto de la rutina, una vez comentada, es el siguiente: 


; Inicializa la configuración de los disparos enemigos 


; Altera el valor de los registros BC, DE y HL. 


ResetEnemiesFir 


Jl! h1l, enemiesFire ; Apunta HL a la configuración de los disparos 
ld de, enemiesFire + $01 ; Apunta DE al byte siguiente 

JLo! a, EDNaS + (02 ; Carga en BC en número de bytes a limpiar 

ld (ASNO ; Limpia el primer byt 


JLolátíe ; Limpia el resto 


Her 


La configuración de los disparos enemigos es una suerte de lista. Necesitamos una rutina para que 
actualice dicha lista, vea cuantos disparos están activos, los ponga al inicio de la lista y actualice en 
memoria el número de disparos activos. Esta rutina la vamos a implementar justo delante de 
ResetEnemiesFire. 


Es poco probable que queramos tener más de cinco disparos enemigos a la vez, es posible que 
incluso tengamos menos. Basados en esto, vamos a hacer una rutina que no es la más optima, pero 
que funciona. 


La rutina que vamos a implementar, por cada elemento de la lista va a recorrer la lista en su 
totalidad, por lo que vamos a usar dos bucles anidados. Para finalizar, vamos a implementar un 
tercer bucle para actualizar el número de disparos activos. 


RefreshEnemiesFir 


ld by ETRES 


OE a 


refreshEnemiesFire loopExt: 


push be 
dal ix, enemiesFire 
ld 9 VUAES 


Cargamos en B el número máximo de disparos para que sea el contador del bucle exterior, LD B, 
FIRES, y ponemos A a cero, XOR A. Preservamos BC, PUSH BC, apuntamos IX a la 
configuración de los disparos de los enemigos, LD IX, enemiesFire, y volvemos a cargar en B el 
número máximo de disparos, en este caso como contador del bucle interior, LD B, FIRES. 


En este caso, a la memoria vamos a acceder de manera indexada con el registro IX; en este capítulo 
de Porompompong se habla sobre los registros del Z80. 


refreshEnemiesFire looplInt: 


ISALiE 5077 (ÉSS00) 

sé nz, refreshEnemiesFire loopIntCont 
Lal Cc, (1x+$02) 

ld (GES-S00), e 

JE! ep (sS0S) 

ld (FS Oi), e 

ld (RF SO2), El 


Evaluamos si el disparo está activo, BIT $07, (IX+$00), y saltamos si lo está, JR NZ, 
refreshEnemiesFire_loopIntCont. 


Si no está activo cargamos el primer byte del siguiente disparo en C, LD C, (1X+$02), y luego lo 
cargamos en el primer byte del disparo apuntado por IX, LD (IX+$00), C. Cargamos el segundo 


byte del siguiente disparo en C, LD C, (1X+03), y luego lo cargamos en el segundo byte del disparo 
apuntado por IX, LD (IX+$01), C. 


Por último, ponemos el primer byte del segundo disparo a cero, LD (IX+$02), A. 


refr 


pop 


djnz 


shEnemiesFire loopIntCont: 
ix 


ix 


refreshEnemiesFire loop 


be 


Int 


refreshEnemiesFire loopExt 


Apuntamos IX al primer byte del siguiente disparo, INC IX, INC IX, y seguimos en bucle hasta que 
B sea igual a cero, DJNZ refreshEnemiesFire_loopInt. 


Recuperamos BC para obtener el contador del bucle exterior, PUSH BC, y seguimos en bucle hasta 
que B sea igual a cero, DIJNZ refreshEnemiesFire_loopExt. 


Llegados a este punto ya tenemos todos los disparos activos al inicio de la lista, solo queda contar 
cuantos disparos están activos. El conteo de los disparos activos lo vamos a llevar en A, recordad 


que ya lo pusimos a cero al inicio de la rutina, XOR A. 


JLGl hb, ETRES 

Jal hl, enemiesFire 
refreshEnemiesFire loopCount: 

bit $07, (h1) 

3115 z, refreshEnemiesFire end 
aloe a 

refreshEnemiesFire loopCountCont: 
ES hl 

inc hl 

djnz refreshEnemiesFire loopCount 
refreshEnemiesFire end: 

ld (enemiesFireCount), a 

me 


Cargamos en B el número máximo de disparos, LD B, FIRES, y apuntamos HL a la configuración 
de los disparos, LD HL, enemiesPire. 


Evaluamos si el disparo está activo, BIT $07, (HL), y si no lo está salta, JR Z, 
refreshEnemiesFire_end. 


Si está activo, incrementamos A para sumar un disparo activo, INC A, apuntamos HL al primer byte 
del siguiente disparo, INC HL, INC HL, y seguimos en bucle hasta que B sea igual a cero, DJNZ 
refreshEnemiesFire_loopCount. 


Por último, actualizamos el número de disparos activos en memoria, LD (enemiesFireCount), A, y 
salimos, RET. 


El aspecto final de la rutina es el siguiente: 


; Actualiza la configuración de los disparos enemigos 


; Altera el valor de los registros AD, BC, HL e IX. 


RefreshEnemiesFir 


ERES ; Carga en B el número máximo de disparos 


xor a ¿ Pone A a 0 


refreshEnemiesFire loopExt: 


push bc ; Preserva BC 
ld ix, enemiesFire ; Apunta IX a la configuración de los disparos 
ld DAEERES ; Carga en B el número máximo de disparos 


refreshEnemiesFire looplInt: 


ld 


ld Ind, 


FIRES 


enemiesFire 


refreshEnemiesFire loopCount: 


refreshEnemiesFire loopIntCont: 


ns aL 
E 1x 
djnz refreshEnemiesFire looplInt 
pop be 
djnz refreshEnemiesFire loopExt 


, 


, 


Ie SO (E SOLO) ; Evalúa si el disparo está activo 

3j1é 07, TELASSMNANSic Slds LO mico ¿Sal llo este, Saulea 

Jl! Sy (is S02) ; Carga el byte 1 del siguiente disparo en C 
Jl! (SO0), E ; Lo carga en el byte 1 del disparo actual 

ld Sy (ss S0S) ; Carga el byte 2 del siguiente disparo en C 
Jal (SOL), e ; Lo carga en el byte 2 del disparo actual 

ld (1x+$02), a ; Pone a cero el byte 1 del siguiente disparo 


Apunta IX al byte 1 del siguiente disparo 


Bucle hasta que B = 0 


Recupera BC para bucle exterior 


Bucle hasta que B = 0 


; Actualiza el número de disparos activos 


Carga en B el número máximo de disparos 


Apunta HL a la configuración de los disparos 


bit 077 (Wal) ; Evalúa si el disparo está activo 


5)16 z, refreshEnemiesFire end ¿ Sl me Jo está, salia 


NE a ; Incrementa A = contador de disparos 


refreshEnemiesFire loopCountCont: 


ie hl 

aaa hl ; Apunta HL al byte 1 del siguiente disparo 
djnz refreshEnemiesFire loopCount ; Bucle hasta que B= 0 

refreshEnemiesFire end: 

JLo] (enemiesFireCount), a ; Actualiza el contador de disparos en memoria 
Let 


Ahora vamos a implementar la rutina que va a ir activando los disparos. Los disparos se van a 
activar cuando el enemigo esté en la misma coordenada horizontal que la nave, siempre que no 
estén ya activos todos los disparos. 


Seguimos en Game.asm, localizamos la etiqueta MoveEnemies, y justo encima de ella 
implementamos la rutina que activa los disparos enemigos. 


EnableEnemiesFire: 


ld de, (shipPos) 
Bos h1l, enemiesConfig 
Jal b, ENEMIES 


Cargamos en DE la posición de la nave, LD DE, (shipPos), apuntamos HL a la configuración de los 
enemigos, LD HL, enemiesConfig, y cargamos en B el número máximo de enemigos, LD B, 
ENEMIES. 


nableEnemiesFire loop: 
ld a, (enemiesFireCount) 
cp FIRES 
ee ie) 
push be 
ld Ely (may 
ld ly E 
inc hl 
and $80 
ES z, enableEnemiesFire loopCont 
Jl a, (hl) 


16 nz, enableEnemiesFire loopCont 


Cargamos en A el número de disparos activos, LD A, (enemiesFireCount), lo comparamos con el 
número máximo de disparos, CP FIRES, y salimos si lo hemos alcanzado, RET NC. Recordad que 
CP resta al registro A el valor especificado, sin cambiar el valor de A pero si el registro F. El flag de 
acarreo se activa mientras A sea menor que el valor indicado en CP, por lo tanto el flag de acarreo 
se desactiva cuando A sea mayor o igual al valor indicado en CP. 


Preservamos el valor de BC, PUSH BC, cargamos en A el primer byte de la configuración del 
enemigo, LD A, (HL), lo cargamos en B, LD B, A, apuntamos HL al segundo byte de la 
configuración, INC HL, comprobamos si el enemigo está activo, AND $80, y saltamos si no lo está, 
JR Z, enableEnemiesFire_loopCont. 


En el caso de que el enemigo esté activo, cargamos en A el segundo byte de la configuración, LD A, 
(HL), nos quedamos con la coordenada X, AND $1F, los comparamos con la coordenada X de la 
nave, CP E, y saltamos si no son la misa, JR NZ, enableEnemiesFire_loopCont. 


Si no hemos saltado, tenemos que activar el disparo. 


ld c, a 

push IL 

push be 

Jal hl, enemiesFire 

ld a, (enemiesFireCount) 
add a, a 

ld b, $00 

ld e, a 

add ¡A ee 

pop be 

Til (al) 19 

inc h 

Ho? ES 

ld hl, enemiesFireCount 
inc (hl 

pop hl 


Cargamos en C la coordenada X del enemigo, LD C, A, con esto ya tenemos lista la configuración 
del disparo. Preservamos HL, PUSH HL, preservamos BC, PUSH BC, apuntamos HL a la 
configuración de los disparos enemigos, LD HL, enemiesFire, cargamos en A el número de 
disparos activos, LD A, (enemiesFireCount), lo multiplicamos por dos, ADD A, A, ponemos B a 
cero, LD B, $00, cargamos en C el número de bytes que hay que desplazarse, LD C, A, y se lo 
sumamos a HL para que apunte a la posición de la lista dónde vamos a poner la configuración del 
disparo, ADD HL, BC. 


Recuperamos la configuración del disparo, POP BC, cargamos el primer byte de la configuración 
del disparo en memoria, LD (HL), B, apuntamos HL al segundo byte de la lista, INC HL, cargamos 
el segundo byte de la configuración del disparo en memoria, LD (HL), C, apuntamos HL al 
contador de disparos enemigos, LD HL, enemiesFireCount, lo incrementamos, INC (HL), y 
recuperamos HL para que apunte al segundo byte de la configuración del enemigo, POP HL. 


nableEnemiesFire loopCont: 


pop bc 

eS hl 

djnz nableEnemiesFire loop 
ICE 


Recuperamos el valor de BC para recuperar el contador del bucle, POP BC, apuntamos HL al 
primer byte de la configuración del siguiente enemigo, INC HL, y seguimos en bucle hasta que 
recorramos todos los enemigos, B sea igual a cero, DJNZ enebleEnemiesFire_loop. Por último, 
salimos, RET. 


El aspecto final de la rutina es el siguiente: 


; Habilita el disparo del enemigo. 


; Altera el valor de los registros AF, BC, DE y HL. 


nableEnemiesFire: 


Jl de, (shipPos) ; Carga en DE la posición de la nave 
ld hl1, enemiesConfig ; Apunta HL a la configuración de los enemigos 
ld b, ENEMIES ; Carga en B el número total de enemigos 


nableEnemiesFire loop: 


ld a, (enemiesFireCount) ; Carga en A el número de disparos activos 

cp FIRES ; Lo compara con el máximo de disparos 

ret nc ; Sale si se ha alcanzado 

push be ; Preserva el valor de BC 

ld al (al) ; Carga en A el primer byte de la configuración 
ld 1) El ; Lo carga en B 

ainia hl ; Apunta HL al segundo byte de la configuración 
and $80 ; Evalúa si el enemigo está activo 


JE z, enableEnemiesFire loopCont 7 Si ao Jo estra, sella 


ld aj (al) ; Carga en A el segundo byte de la configuración 


and All ; Se queda con la coordenada X 
Ep) e ; La compara con la de la nave 
ja nz, enableEnemiesFire looplCont ¡; Si no son la misma, salta 


; Activa el disparo 


; La configuración del disparo es la del enemigo 


ld e, El ; Carga en € la coordenada X del enemigo 

push hl p Presciya Jalllo 

push bc ; Preserva BC, configuración del disparo 

ld h1l, enemiesFire ; Apunta HL a los disparos de los enemigos 

ld a, (enemiesFireCount) ; Carga en A el contador de disparos 

add a tal ; Lo multiplica por dos, dos bytes por disparo 

ld b, $00 

ld Ss, El ; Carga el desplazamiento en BC 

add Il 198 ; Apunta HL al disparo que hay que activar 

pop be ; Recupera BC, configuración del disparo 

ld al, 19 ; Carga en memoria el primer byte de la configuración 
LO ind ; Apunta HL al segundo byte de la configuración 
Il ga e A ; Lo carga en memoria 

JLo! h1l, enemiesFireCount ; Apunta HL al contador de disparos enemigos 

inc (dnd ; Lo incrementa en memoria 

pop hl ; Recupera HL, segundo byte configuración enemigo 


nableEnemiesFire loopCont: 
pop be ; Recupera el valor de BC 
O ind ; Apunta HL al primer byte de configuración 


; del enemigo siguiente 


djnz nableEnemiesFire loop +; Hasta que se recorra todos los enemigos, B= 0 


Let 


Como hemos dicho anteriormente, los disparos se habilitan cuando los enemigos están en la misma 
coordenada horizontal que la nave, por ese motivo la llamada a EnableEnemies la vamos a hacer 
desde la rutina MoveEnemies. 


En MoveEnemies vamos a cambiar dos cosas: primero localizamos la etiqueta moveEnemies_cont, 
y la segunda línea, que ahora presenta este aspecto: 


ld ely BLA ; Carga en D el número total de enemigos (20) 


La dejamos así: 


ld d, ENEMIES ; Carga en D el número total de enemigos 


Antes hemos declarado la constante ENEMIES, y ahora hemos de sustituir la constante en todos 
aquellos lugares donde se carga el número de enemigos. 


Ahora localizamos la etiqueta moveEnemies_end y tras la primera línea: 


Call PrintEnemies ; Pinta los enemigos 


Añadimos la llamada a EnableEnemiesFire: 


cad l EnableEnemiesFire ; Habilita los disparos de los enemigos 


Ahora vamos a implementar una rutina para que mueva los disparos enemigos, igual que tenemos 
una rutina para mover los enemigos. 


Seguimos en Game.asm, localizamos la etiqueta MoveFire y justo delante de ella implementamos 
la rutina que va a mover los disparos enemigos. 


MoveEnemiesFire: 
ld AOS 
camall Ink 

dE tags 
bit s04, (Al) 
Sa z 

res $04, (Al) 


Cargamos en A la tinta magenta, LD A, $03, cambiamos la tinta, CALL Ink, cargamos en HL los 
flags, LD HL, flags, y comprobamos si el bit cuatro está activo, BIT $04, (HL). Si el bit no está 
activo salimos, RET Z, si sí lo está lo desactivamos, RES $04, (HL). 


Por lo que vemos, vamos a usar otro bit de nuestro byte de flags. 


ld OE RIS 


A hl, enemiesFire 


moveEnemiesFire loop: 


ld Joy, (mal) 
inc hl 
ld (Sy (Gail) 
dec hl 


Cargamos en D el número máximo de disparos, LD D, FIRES, apuntamos HL a la configuración de 
los disparos enemigos, LD HL, enemiesFire, cargamos el primer byte de la configuración en B, LD 
B, (HL), apuntamos HL al segundo byte, INC HL, lo cargamos en C, LD C, (HL), y volvemos a 
apuntar HL al primer byte, DEC HL. 


bit $07, 19 


312 Z, moveEnemiesFire loopCont 


res 507, 19 

camAll DeleteChar 

ld a, ENEMY TOP_B + $01 

Ep b 

y Zz, moveEnemiesFire loopCont 
dec b 

call At 

ld a, ENEMY GRA F 

rst $10 

set 507,7 19 


Evaluamos si el disparo está activo, BIT $07, B, y saltamos si no lo está, JR Z, 
moveEnemiesFire_loopCont. Si el disparo está inactivo podríamos salir de la rutina, pero no lo 
hacemos para que la rutina siempre tarde lo mismo en ejecutarse, o al menos lo más parecido 
posible entre cada ejecución. 


Si el disparo está activo, nos quedamos con la coordenada Y, RES $07, B, borramos el disparo de su 
posición actual, CALL DeleteChar, cargamos en A el tope vertical al que puede llegar el disparo por 
abajo, LD A, ENEMY_TOP_B + $01, lo comparamos con la coordenada Y, CP B, y saltamos si la 
hemos alcanzado, JR Z, moveEnemiesFire_loopCont. 


Si no hemos alcanzado el tope, apuntamos la coordenada Y a la línea siguiente, DEC B, 
posicionamos el cursor, CALL At, cargamos en A el gráfico del disparo enemigo, LD A, 
ENEMY_GRA_PF, lo pintamos, RST $10, y dejamos el disparo activado, SET $07, B. 


moveEnemiesFire loopCont: 

ld (aL), 19 

TE hl 

above hl 

dec al 

y nz, moveEnemiesFire loop 
Jp RefreshEnemiesFir 


Al llegar a este punto, hemos activado o desactivado el disparo y actualizado la coordenada Y según 
corresponda. Actualizamos el primer byte de la configuración del disparo en memoria, LD (HL), D, 
apuntamos HL al primer byte del disparo siguiente, INC HL, INC HL, decrementamos D que es 
donde tenemos el número de iteraciones del bucle, DEC D, y seguimos en bucle hasta que D valga 
cero, JR NZ, moveEnemiesFire_loop. 


Finalmente, saltamos a refrescar la lista de disparos y salimos por allí, JP RefreshEnemiesFire. 


El aspecto final de la rutina es el siguiente: 


; Mueve el disparo del enemigo. 


; Altera el valor de los registros AF, BC, DE y HL. 


movel 


aio 


dec 


labia 
316 
res 
calla 
ld 
cp 
36 
dec 
call 
ld 
Sia 


set 


movel 
ld 
ne 


aa 


EnemiesFire: 


ay $03 


Ink 


d, FIRES 


hl, enemiesFire 
EnemiesFire loop: 

ly (mal) 

ld 


Cc, (hl) 


, 


, 


Cara la tinta 3 en A 

Cambia la tinta 

Apunta HL a los flags 

Comprueba si está activo el flag mover disparo enemigo 
Si no lo está, sale 


Desactiva el flag mover disparo enemigo 


Carga en D en número máximo de disparos 


Apunta HL a los disparos enemigos 


Carga en B la coordenada Y del disparo 
Apunta HL a la coordenada X 


La carga en € 


Apunta HL a la coordenada Y 


Evalúa si el disparo está activo 


Zz, MoveEnemiesFire loopCont ; Salta si no lo está 


074 19 ; Se queda con la coordenada Y 
DeleteChar ; Borra el disparo de su posición actual 
a, ENEMY TOP B + $01 ; Carga en A el tope 

b ; Lo compara con la coordenada Y 


Z, MoveEnemiesFire loopCont ; Si es la misma, salta 


a, ENEMY GRA F 


(mi) 19 
hl 


hl 


, 


, 


EnemiesFire loopCont: 


Apunta B a la línea siguiente 
Posiciona el cursor 

Carga en A el gráfico del disparo 
Lo pinta 


Deja el disparo activo 


Actualiza la coordenada Y del disparo 


Apunta HL al primer byte de la configuración 


del siguiente enemigo 


y ié nz, moveEnemiesFire loop 


Jp RefreshEnemiesFir ; Actualiza los disparos enemigos y sale 


Ya tenemos todo casi listo para poder ver los disparos enemigos en pantalla. 


Al inicio de la rutina MoveEnemies, recuperamos el valor de la etiqueta flags y evaluamos si el bit 
cuatro está activo. 


Vamos al archivo Main.asm, y en los comentarios de flags, vamos a añadir el siguiente: 


; Bit 4 -> mover disparo enemigo 0 = No, 1 = Sí 


Seguimos en Main.asm y vamos a aprovechar para incluir las llamadas a algunas de las rutinas que 
hemos implementado. 


Localizamos la etiqueta Main_start, y justo delante de CALL ChangeLevel vamos a incluir una 
llamada a la inicialización de los disparos enemigos: 


Call ResetEnemiesFir 


Localizamos la rutina Main_loop, y entre las líneas CALL MoveEnemies y CALL 
CheckCrashShip, añadimos la llamada a la rutina que mueve los disparos enemigos: 


Call MoveEnemiesFire 


Aprovechamos también para comentar la línea CALL CheckCrashShip, para que no nos maten los 
enemigos y poder ver mejor como quedan los disparos. 


Por último, localizamos la rutina Main_restart, y casi al final, justo antes de CALL Sleep, añadimos 
otra llamada a la inicialización de lo disparos enemigos: 


¡Sad ResetEnemiesFir 


Hemos acabado en Main.asm, pero todavía nos queda activar el bit cuatro de flags para que todo 
esto funcione. 


Vamos al archivo Int.asm, y lo primero que tenemos que hacer es decidir a que velocidad se va a 
mover el disparo enemigo. Sin implementar nada nuevo tenemos dos velocidades a elegir: a la 
velocidad a la que se mueve la nave (en cada interrupción), o la velocidad a la que se mueven los 
enemigos (cada N interrupciones). 


En mi caso he optado por la segunda opción. Localizamos la línea SET $02, (HL), y justo debajo 
añadimos: 


set $04, (hl) 


Si queréis que se mueva a la velocidad a la que se mueve la nave, esta línea la tenéis que poner justo 
debajo de SET $00, (HL). 


Hemos implementado una buena cantidad de líneas, y ya es hora de que probemos y veamos los 
resultados; compilamos y cargamos en el emulador. 


Si todo va bien, ya pueden verse los disparos enemigos. 


Dije anteriormente que cinco disparos enemigos simultáneos quizá fuera excesivo. Para apreciar 
mejor esto, en Game.asm localizamos la rutina MoveEnemies y, casi al final, comentamos la línea 
CALL PrintEnemies para poder ver mejor los disparos. 


Compilamos, cargamos en el emulador y vemos los resultados. 


Si a esto le sumamos los enemigos, quizá sea demasiado. Descomentamos la línea CALL 
PrintEnemies, y en Main.asm, en la rutina MainLoop, localizamos la línea CALL CheckCrashShip 
y quitamos el comentario. 


Compilamos, cargamos en el emulador y verificamos que los enemigos nos vuelven a matar. Ya 
solo queda hacer que los disparos enemigos también nos maten. 


Antes de implementar las colisiones entre la nave y los disparos enemigos, recordad que declaramos 
una constante con el número total de enemigos, ENEMIES, pero todavía tenemos partes del código 
en las que no la estamos usando. 


Vamos a Print.asm, localizamos la rutina PrintEnemies, y modificamos la línea LD D, $14 
dejándola así: 


ld d, ENEMIES 


El resto de modificaciones las vamos a realizar en Game.asm. 


Localizamos la rutina ChangeEnemies, localizamos la línea LD B, $14 y la modificamos dejándola 
así: 


ld b, ENEMIES 


Localizamos las rutina CheckCrashFire, borramos las líneas: 


ld kb, enemiesConfigEnd - enemiesConfiglni 


sra b 


Y las sustituimos por: 


JE! b, ENEMIES 


Hacemos la misma modificación en la rutina CheckCrashShip. 


Y ahora ya sí, implementamos las colisiones entre la nave y los disparos enemigos. Seguimos en la 
rutina CheckCrashShip, vamos al final y justo antes de RET, añadimos las nuevas colisiones. 


checkCrashShipFire: 

ld de, (shipPos) 

ld a, (enemiesFireCount) 
Jl! 19, El 

Jal hl, enemiesFire 


Cargamos en DE la posición de la nave, LD DE, (shipPos), cargamos en A el número de disparos 
enemigos activados, LD A, (enemiesFireCount), lo cargamos en B, LD B, A, y apuntamos HL a la 
configuración de los disparos, LD HL, enemiesFire. 


checkCrashShipFire loop: 


ld aj (mal) 

aia Im dL 

res $07, a 

cp d 

36 nz, checkCrashShipFire loopCont 
ld ap (mal) 

cp e 


36 nz, CcheckCrashShipFire loopCont 


Cargamos el primer byte de la configuración del disparo en A, LD A, (HL), apuntamos HL al 
segundo byte, INC HL, nos quedamos con la coordenada Y, RES $07, A, la comparamos con la 
coordenada Y de la nave, CP D, y  saltamos si no son la misma, JR  NZ, 
checkCrashShipFire_loopCont. 


Si la coordenada Y del disparo y la de la nave son la misma, cargamos en A la coordenada X del 
disparo, LD A, (HL), la comparamos con la coordenada X de la nave, CP E, y saltamos si no son la 
misma, JR NZ, checkCrashShipFire_loopCont. 


dec hl 

res 5075 (ml) 

ld a, (livesCounter) 
dec a 

daa 

ld (livesCounter), a 
call PrintInfoValue 
ejadlal PrintExplosion 

Jp RefreshEnemiesFir 


Si hay colisión entre el disparo y la nave, apuntamos HL al primer byte de la configuración del 
disparo, DEC HL, desactivamos el disparo, RES $07, (HL), cargamos en A el número de vidas, LD 
A, (livesCounter), quitamos una vida, DEC A, hacemos el ajuste decimal, DAA, y actualizamos en 
memoria, LD (livesCounter), A. 


Por último, pintamos la información de la partida, CALL PrintInfo Value, pintamos la explosión, 
CALL PrintExploxion, y actualizamos la lista de disparos enemigos y salimos por allí, JP 
RefreshEnemiesFire. 


checkCrashShipFire loopCont: 
E hl 


djnz checkCrashShipFire loop 


Si no ha habido colisión, apuntamos HL al primer byte de la configuración del siguiente disparo, 
INC HL, y seguimos en bucle hasta que hayamos recorrido todos los disparos y el valor de B sea 
cero, DJNZ checkCrashShipFire_loop. 


El aspecto final de la detección de colisiones entre la nave y los enemigos (naves y disparos 
enemigos) es el siguiente: 


; Evalúa las colisiones de los enemigos y los disparos con la nave. 


; Altera el valor de lo registros AF, BC, DE y HL. 


, 


CheckCrashShip: 


ld de, (shipPos) ; Carga en DE la posición de nave 


ld hl1, enemiesConfig ; Apunta HL a la configuración de los enemigos 


ld b, ENEMIES ; Carga en B el número d nemigos 


checkCrashShip loop: 


Jal a, (h1) ; Carga en A la coordenada Y del enemigo 
AO hl ; Apunta HL a la coordenada X del enemigo 
¡aia $07, a ; Evalúa si el enemigo está activo 

JE z, CcheckCrashShip endLoop FP Sil mo le esuecá, saulra 

and Slae ; Se queda con la coordenada Y del enemigo 
9 a ¿; Compara con la coordenada Y de la nave 
AE 0, aaselCirasiaSiao eamcltors + Sil mo som 1cuveles, saliva 

ld al (Mal) ; Carga en A la coordenada X del enemigo 
and SLsE ; Se queda con la coordenada X de enemigo 
cp e ; Compara con la coordenada X de la nave 
3% nz, checkCrashShip endLoop +; Si no son iguales, salta 

dec hl ; Apunta HL a la coordenada Y del enemigo 
res SOT, (ul) ; Desactiva el enemigo 

e a, (enemiesCounter) ; Carga en A el número di nemigos 

dec a j Resta Uli 

daa ; Hace el ajuste decimal 

ld (enemiesCounter), a ; Actualiza el valor en memoria 

ld a, (livesCounter) ; Carga las vidas en A 

dec a ¿ Quita una 

daa ; Hace el ajuste decimal 

ld (livesCounter), a ; Actualiza el valor en memoria 

cadll PrintInfoValue ; Pinta la información de la partida 

Jp PrintExplosion ; Pinta la explosión y sale 


checkCrashShip endLoop: 


inc hl ; Apunta HL a la coordenada Y del siguiente enemigo 


djnz checkCrashShip loop ; En bucle hasta que B = 0 


checkCrashShipFire: 


; Comprueba colisiones entre disparos enemigos y nave 


ld de, (shipPos) ; Carga en DE la posición de la nave 


ld a, (enemiesFireCount) 
ld lo, El ; Carga el B el número de disparos activos 
ld h1l, enemiesFire ; Apunta HL a la configuración de los disparos 


checkCrashShipFire loop: 


ld al (adl) ; Carga la coordenada Y del disparo en A 
inc hl ; Apunta HL a la coordenada X 

res 507 El ; Se queda con la coordenada Y 

cp da ; Compara si es la misma que la de la nave 
é5 nz, CcheckCrashShipFire loopCont ; Si no es la misma, salta 

ld al” (Mal) ; Carga la coordenada X del disparo en A 
cp e ; Compara si es la misma que la de la nave 
5132 nz, checkCrashShipFire loopCont ; Si no es la misma, salta 


; Si llega aquí, la nave ha colisionado con el disparo 


dec hl ; Apunta HL al primer byte del disparo 
res SOT 7 (mL) ; Desactiva el disparo 

JLo! a, (livesCounter) ; Carga las vidas en A 

dec a ¿ Quita una 

daa ; Hace el ajuste decimal 

ld (livesCounter), a ¿ Actualiza el valor en memoria 

call PrintInfoValue ; Pinta la información de la partida 
Call PrintExplosion ; Pinta la explosión 

Jp RefreshEnemiesFir ; Actualiza los disparos enemigos y sale 


checkCrashShipFire loopCont: 


NES hl ; Apunta HL al siguiente disparo 
djnz checkCrashShipFire loop ; Bucle hasta que B = 0 
tet 


Llegados a este punto, ya tenemos el disparo de las naves enemigas implementado. Compilamos, 
cargamos en el emulador y vemos los resultados. 


Ajuste de la dificultad 


Quizá ahora la dificultad haya subido demasiado, o quizá no. Sea como fuere, vamos a ver algunos 
pequeños cambios que podemos realizar para ajustar la dificultad. 


Los cambios que os propongo es para que hagáis pruebas, pero no los dejéis de manera permanente 
pues más adelante vamos a añadir una opción en el menú para que el jugador pueda seleccionar 
entre distintos niveles de dificultad. 


La primera manera de reducir la dificultad va a ser reduciendo la velocidad a la que se mueven los 
enemigos y sus disparos. Vamos al archivo Int.asm, localizamos la línea SUB $03 y sustituimos $03 
por $04, $05, $06, etc. Recordad que cuanto mayor sea este número, menor es la velocidad a la que 
se mueven los enemigos. Haced pruebas y veréis que la velocidad se reduce. 


Otra forma de reducir la dificultad es reducir el número de disparos simultáneos. Vamos al archivo 
Const.asm, localizamos la etiqueta FIRES y cambiamos su valor por $01, $02, etc. Compilamos y 
vemos que al haber menos disparos a un mismo tiempo, la dificultad también se reduce. 


También podemos reducir la dificultad evitando que los enemigos colisionen con la nave, para lo 
cual localizamos la etiqueta moveEnemies_Y_down y dos lineas más abajo tenemos SUB 
ENEMY_TOP_B, modificamos está línea y la dejamos como sigue: 


sub ENEMY TOP_B + $01 


Como podéis observar, los enemigos ya no colisionan con la nave, lo que reduce la dificultad. Si la 
reduce demasiado para vuestro gusto, probad a aumentar el número de disparos enemigos 
simultáneos. 


Si los enemigos no colisionan con la nave, nos podríamos ahorra gran parte de la rutina 
CheckCrashShip, pero como vamos a cambiar estos comportamientos en base a la selección del 
jugador, la dejamos como está. 


Otra forma que se me ocurre de disminuir la dificultad es al estilo Plaga Galáctica, el primer juego 
que cargué en mi Amstrad CPC 464. En Plaga Galáctica se dispone de tres vidas para superar cada 
nivel. 


Para comenzar cada nivel con cinco vidas, vamos a Main.asm, localizamos la etiqueta 
Main_restart, y antes de CALL FadeScreen añadimos las líneas siguientes: 


ld hl, livesCounter 


ld (h1), $05 


Con estas líneas, contaremos con cinco vidas al inicio de cada nivel. 


Conclusión 


En este capítulo hemos cambiado el comportamiento de los enemigos y los hemos dotado de 
disparo. También hemos visto distintas formas de ajustar la dificultad. 


En el próximo capítulo vamos a implementar el sonido. 


0x0C Sonido 


En este capítulo vamos a implementar la música. A diferencia de la versión original de Batalla 
Espacial, en esta ocasión vamos a incluir música durante la partida, además de los efectos de sonido 
que ya teníamos. 


Creamos la carpeta Paso12 y copiamos desde la carpeta Paso11 los archivos Cargador.tap, 
Const.asm, Ctrl.asm, Game.asm, Graph.asm, Int.asm, Main.asm, make o make.bat, Print.asm y 
Var.asm. 


Probando, probando 


Antes de implementar el sonido en nuestro juego, vamos a realizar una serie de pruebas para ver 
como lo hacemos. 


Dentro de la carpeta Paso12 vamos a crear la carpeta Sound, dentro de la misma vamos a ir 
añadiendo los archivos de código de las pruebas que vamos a realizar. 


Creamos, dentro de Sound, el archivo Const.asm para añadir las constantes que nos van a hacer 
falta, empezando por la dirección de memoria de la rutina BEEPER de la ROM, rutina que hace 
sonar las notas que enviemos. 


; Rutina beeper de la ROM. 


p iimuicacias IL => Mota. 


5 DE => Duración. 


; Altera el valor de los registros AF, BC, DE, HL e IX. 


BEEP: EQU $03b5 


Podemos observar en los comentarios que esta rutina recibe en el registro HL la nota, y en DE la 
duración (frecuencia). 


Lo siguiente que vamos a añadir al archivo son las notas que, al igual que las frecuencias, obtuve en 
Programandala, y podéis descargar desde aquí. 


co: EQU $6868 
Cs 0s EQU $628d 
DOE EQU $5d03 
Ds 0: EQU $57b£ 
08 EQU $52d7 


Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur Y Ur Ur Ur UN Ur Ur Ur Ur Ur Ur 
y) H H H H H H H H H H H 


qu) 10) o] o) To) y) 0) m S H o] o To) 5] < 0) (Ss LO (Es 0) S [o] Sy YH Y S) m (> 0) m 10) o H To) Q md 00 (o) 
oy a U (5) O Ko) o 1) o a 0) (50) (09) y 0) (00) lo) SN Yy 6) U — LO am o Yy Lo) QQ. A (00) o LO + NA a S Y 0) 
(oo) (oo) = = wo wo wo LO LO LO SE 3 3 Mm Mm COCO am AN SN ¡SN ¡SN ¡SN NA N a a 2] Hu Hu Hu Hu a Hu Hu Hu (S) o 
ie : Bb O 2] 0? > <> + ES o CA <> pe <> : A Xd O O . a EA , ho ES he ed hos ES | y a + > ya ja E $ gan? a] 
UE YE UE UE Ur UE Ur UE Ur YE 0uUr YE Ur YE uE Ur Ur UE UE UE Ur YE UE YE uE Ur uE ur UU UE Ur YE 0 Y uu vr Yu sv 

) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) vd ) ) ) ) ) ) ) ) ) ) ) ) ) ) hn ) 
Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q 
El [Ea] El El El El El El El El El El El El El El El El El El El El El El El El El El El El El El El El El El El El 

.. Mm .. Mm .. .. <H]| .. <H]| .. .. Si .. Si .. Si .. .. LO .. LO .. .. LO .. LO .. LO .. .. o) .. o) .. .. o) .. o) 
(19) (19) m Y IS NS Y IS los ls LO a) LO LO [LO [ALO ¡LO Ko) Ko) Ko) Ko) Ko) 

n n n n n n n n n n n n n n n n 
¡0) (E) E K [sa] ¡0) ¡0) [a] [a] [52] E Ey 10) ¡0) E FL [8] SÓ) ¡S) [a] [a] E E FE, Y) ¡0) E E [a] ¡0) ¡0) [a] [a] E E E ¡0) 10) 


40) 10) Y N [Es 0) —u ES] 0) LO To) LO 0) ES] o 10) < (0) md <= e Q (E (9/0) o 9) md 
Ol 9) Q 0] U oy Md (oo) — — o so LO LO 19) SS Si (32) (52) (32) (52) SN SN AN AN u nu 
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Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q 
El El El El El El El El El El El El El El El [Ea] El El El El El [Ea] El El El El [Ea] 

.. Co] .. .. m— .. m— .. .. mm .. rm .. rm .. .. 00 .. 122) .. .. 00 .. 00 .. 00 .. 

o) [CO = = — = Es = = 00 [CO 00 00 ES [CS: 00 
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58 58 A (6) ¡0) Aa [a] E E Ey 10) ¡0) E K [8] (5) (6) [a] [a] El E Ey Y) ¡0) 58 E [sa] 


La nomenclatura usada se basa en la notación anglosajona, siendo: 


Do 


Re 


Mi 


Fa 


Sol 
La 


Si 


La ese minúscula que sigue a algunas notas indica que es sostenida, el número es la escala. Si el 
número es menor, el sonido es más grave, por el contrario, si es mayor, el sonido es más agudo. 


Lo siguiente a añadir son las frecuencias, para las que hemos usado la misma notación, pero 
añadiendo _f para distinguirlas de las notas. Las frecuencias aquí expuestas hacen que las notas 
suenen durante un segundo, por lo que si las dividimos entre dos sonarían durante medio segundo._ 
Tened en cuenta que mientras emitimos un sonido nuestro programa se va a parar, es por eso que 
vamos a dividir las frecuencias entre treinta y dos. 


Pp Mas cbcncias E dauagjei Gia Ma, IL sequmes (/ 2 = 03 2500) 
CORE EQU $0010 / $20 
cs 0 3 HOQU SO0Qiil / $20 
D0_ sg HO SO0LZ2 / 520 
Ds_0_f: EQU $0013 / $520 
20 Eg 900 SOQ14 / $520 
0) E EQU $0015 / $20 
Ns 0 58 “QU SOQI7 / $20 
OE EQU $0018 / $20 
Cs 0 es 10 SOULS / 520 
A0O0f EQU $001b / $20 
AS 0 3 00 SOQILE!. / 520 
8 0 EQU $001e / $20 
CAU: EQU $0020 / $20 
Cs lis QU 50022 / $20 
Di EQU $0024 / $20 
Ds 1.£: EQU 30026 / 320 
a lg 0 50029 / 520 
Y 1 %s 10Qu $002 /- $20 
ESTU: EQUES O OZ /ASZO, 
6 1 3 EQU $0031 / $20 
Cs 4 18 10 SU0SS / 520 
ja dh E EQU $0037 / $20 
AS dl ds OU SUOS2 / $20 
1 sg 104 S00Sd / 520 
a E EQU $0041 / $20 
CS-2 68 OU S00415 / 520 
D_2 f: EQU $0049 / $20 
DST2 HE EQU 2920 
EL2 £: EQU $0052 / 520 
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$20 
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a 
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h 
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a 
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11 
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Q 
[o] 
h 


dE 
o 
h 


pa 
[o] 
h 


e 
or 
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E 
o 
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Q 
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h 
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00 
h 
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h 


a 
00 
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E E > E > A E A CS CS A E: E: E ES E: ES A CS ES ES E ES TS IS ES ES ES E TS ES ES E 
PORO... OP.p.OPR.Op.ORpo4 o o 


IS A IS A SS 


NS A A AS AS A A AS A RS A AS 


Ho SS 


A AS 


HIS A AS 


$20 
$20 
$20 
$20 
$20 
$20 
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$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 


$20 


A 8 f: EQU $1b80 / $20 


Ss 9 Eg QU SIA2S / 520 


B_8_f: EQU $lede / $20 


Hemos añadido muchas constantes, pero recordad que EQU no se compila, por lo que no ocupa 
nada. Lo que hace el compilador es sustituir la etiqueta EQU por el valor que representa allí dónde 
aparezca. 


Ahora que tenemos definidas las notas y sus frecuencias, vamos a definir las canciones, que en 
nuestro caso van a ser dos. En esta primera prueba no vais a reconocerlas, pero más adelante seguro 
que sí. 


Para definir las canciones vamos a usar las etiquetas que acabamos de añadir en el archivo 
Const.asm. Creamos el archivo Var.asm (recordad que estamos dentro de la carpeta Sound) y vamos 
a agregar al mismo la primera canción. 


Song_1: 


oy 1-2 2 6 2 E 2 y O A 62 Es DS 2 e DS 2, AS 2 y AS 2 E Le E MS E 
DET IAS RA E IS PA E PA e Er 


oy E A E A EL e Er e E a E SA e DS A NS a INS A E A e O ID A AE 
DE 27 INS 2 dE INS 2 E 2 ie EN 


CDS EDS DS DIES DS 0D 
DEA a DS ISA IS A EA E 


So DE, DE le MS E LAS 2 IS ES 
2 


du 63 E, E 3 G 2 Ey 62 
5-3, DS 3 E, De 3, 13 E, 


62 Ey E 2 E 3 E, 6-3, 5.3. E, Us 3, 3 Ey 3, E 3 E, 
3 


AE SEL SEL ESSE O SS O O a COD Z E A Zee OZ ZO UD AR ZA 
AS 2 E, AS 2 


oy Ds 2 6, De 2, 182 1, 8 2, Ds 2 4, Ds 2, 115 2 35, Es 2, 48 2 E, 1482, (62 E, E 2, 
EA SO DES a DES 


ay EA E, EG 3 62 Ey 6-2, 
ES Ds 3 Ey De 3 ES E, dE 


G_2 Ey E 2 G_ 3 Ey ES, 5.3 E, Ve 3, 1.3 E, 3, E 3 E, 
S 


oy ES 2 ms ES 2) OS 5 de, 10 Sy a me (O Sl da 1 SA a NS A INR dE AN 
NS 2 E 18 2 


y. DS 2 e, 108 2 18 2 dp 18 2, DS 2 de, Ds 2, JAS 237 08 2 E 2 y (0 2 A 2 dé UN 
2 E, 62 


Ci E 2 E) 10 2) 162 e 62 E 2 62) De 2 bj, DE 2, ¿NS 2 1, 3 2 16 2 E) E 2) 1DS 2 E 
Des 2,4 ¿AS 2 17 15 2, (6 2 Ey (62 


(ELA E EA E de E E E A e DS AS A INS A E O DS AE 
DS 2 1 2 E AS 2 E A E 


Como podéis ver, la definición consta de parejas de valores de 16 bits (usando las etiquetas que 
hemos definido en Const.asm), la frecuencia seguida de la nota. 


Vamos a añadir ahora la segunda de las canciones. 


po Ey € Sy 144 dE) 1 4, 14 de dE A 
Se, E E A E A) A E A A E A A E A a A A E SA 


0 1D) 4 E) 1D 4 1D) 4 de 1 da e) da y da e, A OS y O y EE € as a 


Oy 1D 3E) 1D 4 Dr A E 1D A, 1 4 dE) dm 4 1 ES de A, O) y 0, 14 dp 18 4) JA o E) 1 
CLEAR ECHA GTA EIA Ad AA Ad BA AA AA AS A ES AE SES ca 


oi 1015 E, 15, 5 E, 10.5, 6 5 Ey 6 5, 123 E, 125, Ds 5 E; Ds 5, D5 £, 5, €) Ej, 
CD 124 E, 1 4 44 E, 44,645, Gl D:3 E, D.5 


dy DA, Da, Da, Dd, Dd Di ett El Das Ds 


iy € E, € Sy 54 E, 184, 4-40 1, 4 lo EG 3 Ey ES MS dy 1D_5 


Ohy (39 E, € 5, 3,4 £, 12 4, 44 E, 4) GE, 65 D3 E, D.5 


ciy € 03, € Sy 54 E, 184, € DE €.) 1140 dE, 14 


dw  $0000 


Observamos una última línea, DW $0000. Vamos a usar este valor para indicar que las canciones se 
han terminado y que, a partir de aquí, vuelva al principio de las mismas. 


Por último, vamos a añadir la variable para guardar la siguiente nota. 


ptrSound: 


dw Song_2 


Es el momento de implementar la rutina que vamos a usar para hacer sonar las canciones. Creamos 
el archivo Sound.asm e implementamos la rutina Play. 


Play: 
la ny (GASOL!) 
ld e, (hl) 


inc hl 


ld Ey el 
or e 
316 nz, play cont 


Cargamos en HL la dirección de la siguiente nota, LD HL, (ptrSound), cargamos en E el byte 
inferior de la frecuencia, LD E, (HL), apuntamos HL a byte alto, INC HL, y lo cargamos en D, LD 
D, (HL). Cargamos el valor de D en A, LD A, D, comprobamos si el valor de la frecuencia es $0000 
para saber si estamos en el final de la canción, OR E, y si no es así saltamos, JR NZ, play_cont. 


¡pay ESSGuUE 


ld h1, Song_1 
LE (ptrSound), hl 
Ter 


Si hemos llegado al final de las canciones, cargamos en HL la dirección de la canción uno, LD HL, 
Song_1, cargamos la primera nota en memoria, LD (ptrSound), HL, y salimos, RET. 


play cont: 

Lave h 

ld y (mal) 
inc h 

ld A (lO) 
inc h 

1 (ptrSound), hl 
ld 16) 19 
dE UE 
eat BEEP 
RSE 


Si no hemos llegado al final de la canción apuntamos HL al byte inferior de la nota, INC HL, lo 
cargamos en C, LD C, (HL), apuntamos HL al byte superior de la nota, INC HL, lo cargamos en B, 
LD B, (HL), apuntamos HL al byte inferior de la frecuencia de la siguiente nota, INC HL, y lo 
actualizamos en memoria, LD (ptrSound), HL, cargamos el byte superior de la nota en H, LD H, B, 
cargamos el byte inferior en L, LD L, C, y hacemos sonar la nota, CALL BEEP. Por último, 
salimos, RET. 


Ya solo queda ver si todo esto funciona. Creamos el archivo Testl.asm y añadimos las líneas 
siguientes: 


org $S5dad 


Loop: 


saul Play 


36 Loop 


include "Const.asm" 


include "Sound.asm" 


include "Var.asm" 


end Loop 


Ponemos la dirección de memoria dónde se cargará nuestro programa para que sea compatible con 
modelos de 16K, ORG $5DAD, llamamos a la rutina que se encarga de hacer sonar las canciones, 
CALL Play, y nos quedamos en un bucle infinito, JR Loop. 


En la parte final del archivo, incluimos los ficheros necesarios e indicamos a PASMO (END Loop) 
que ejecute el programa. 


Para ver si funciona, compilamos, cargamos en el emulador y escuchamos. Recordad que para 
compilar usamos la línea de comandos. 


pasmo --tapbas Testl.asm Testl.tap 


Si todo ha ido bien, podréis distinguir dos canciones distintas, y los que tengan mejor oído incluso 
podrán reconocer de que canciones se trata. 


Ritmo y compás 


Efectivamente, las música no suena como tal, es necesario controlar el ritmo al que deben sonar las 
notas, y vamos a hacer uso de las interrupciones para ello; creamos el archivo Test2.asm y 
empezamos a implementar. 


org $5dad 


; Indicadores para la música. 


; Bit 7 -> Reproducir sonido =Ssi / 0 = No 


Como siempre, empezamos con la posición de memoria donde se carga el programa, ORG $5DAD, 
y declaramos una etiqueta que va a servir para interactuar con las interrupciones, music. 


Main: 


ld ll, Some 2 

Ya: (Ote Sota!) im 
di 

ld a, $28 

Ml BEZ Rol 

im 2 

ei 


Apuntamos HL a la segunda canción, LD HL, Song_2, y cargamos el valor en memoria, LD 
(ptrSound), HL. Desactivamos las interrupciones, DI, cargamos cuarenta en A, LD A, $28, lo 
cargamos en 1, LD 1, A, pasamos al modo dos de interrupciones, IM 2, y activamos la 
interrupciones, El. En realidad, las interrupciones se activarían tras las siguiente instrucción. 


Loop: 

la a, (music) 
lali SOT, 2 

3é Zz, Loop 
and SE 

ld (music), a 
eedlal Play 

3% Loop 


Cargamos el valor de music en A, LD A, (music), evaluamos si el bit siete está a uno, BIT $07, A, y 
saltamos si no lo está, JR Z, Loop. 


Si el bit está a uno lo ponemos a cero, AND $7F, lo cargamos en memoria, LD (music), A, 
emitimos el sonido, CALL Play, y seguimos en el bucle, JR Loop. 


include "Const.asm" 
include "Sound.asm" 


include "Var.asm" 


end Main 


Por último, incluimos los ficheros y le indicamos a PASMO que incluya la llamada al programa en 
el cargador. 


Ahora ya solo queda usar las interrupciones para controlar el ritmo. Creamos el archivo Int2.asm y 
empezamos. 


org $Te5c 


MUSIC: EQU S$5dad 


counter:db $00 


Empezamos indicando donde se carga la rutina de interrupciones, ORG $7e5c, declarando una 
constante con la dirección de memoria donde está la etiqueta de los indicadores para la música y 
una etiqueta para controlar el número de interrupciones que tienen que pasar para que emitamos 
algún sonido. 


El resto de la implementación la vamos a realizar entre MUSIC y counter. 


SiS 

push af 
push be 
push de 
push hl 


Preservamos el valor de los registros, PUSH AF, PUSH BC, PUSH DE y PUSH HL. 


1 a, (counter) 
inc a 

la (counter), a 
cp $06 

se 1072, ALE mel 
xor a 

¡Es! (counter), a 
ld MUSIC 
set 5077 (su) 


Cargamos en A el valor del contador, LD A, (counter), lo incrementamos, INC A, lo cargamos en 
memoria, LD (counter), A, evaluamos si ha llegado a seis, CP $06, y saltamos de no ser así, JR NZ, 
isr_end. 


Si el contador ha llegado a seis lo ponemos a cero, XOR A, lo cargamos en memoria, LD (counter), 
A, apuntamos HL a los indicadores para la música, LD HL, MUSIC, y activamos el bit siete, SET 
$07, (HL). 


isr end: 
pop hl 
pop de 


pop be 


pop af 


ei 


reti 


Recuperamos el valor de los registros, POP HL, POP DE, POP BC y POP AF, activamos las 
interrupciones, El, y salimos, RETI. 


Volvemos a Test2.asm y justo encima de END Main incluimos el archivo Int2.asm. 


include "Int2.asm" 


El orden en el que se incluyen los archivos, en este caso concreto, es muy importante; primero 
vamos a compilar y ver como suena. 


pasmo -—-tapbas Test2.asm Test2.tap 


Esta es la forma de onda que podemos ver en el emulador. 


Coda 1101111 


ñv.: -135 Hin: 
Volume : En 
áveradye fregq: 38 Hz CEB> 


Ahora ya sí se pueden distinguir las canciones, aunque las dos van al mismo ritmo y no debería ser 
así. 


Respecto al orden de los include, probad a poner el de Int2.asm por encima del de Var.asm. 
Compilad, cargad en el emulador (con el modelo de 16K) y a ver que pasa... ¡No funciona! 


Comprobad el tamaño del programa Test2.tap, a mi me salen 9324 bytes. Volved a poner el include 
de Int.asm debajo del de Var.asm. Compilad y comprobad lo que ocupa ahora, a mi me salen 8520 
bytes. ¿A qué se debe esta diferencia? 


Al contrario que en el juego, no estamos compilando los ficheros por separado, estamos compilando 
como uno solo gracias a los include. 


La memoria de los modelos de 16K va desde la posición $0000 hasta la $7FFF. Nosotros cargamos 
la rutina de interrupciones en la posición $7E5C, quedando cuatrocientos diecinueve bytes hasta la 
posición $7FFF pero ojo, hay que contar con la pila. 


Cuando ponemos el include de Int2.asm el último, desde la posición $7E5C cargamos treinta dos 
bytes, que es lo que ocupa la rutina de las interrupciones que hemos implementado; quedamos muy 
lejos de ocupar los cuatrocientos diecinueve bytes que tenemos disponibles. 


Si ponemos el include de Var.asm después del de Int.asm, tras los treinta y dos bytes de la rutina de 
interrupciones cargamos los ochocientos cuatro bytes de la definición de las canciones, sumado un 
total de ochocientos treinta y seis bytes ($0344). Si estos bytes se los sumamos a la dirección donde 
cargamos la rutina de interrupciones, $7E5C + $0344, nos da como resultado $81A0, muy por 
encima de la capacidad de los modelos de 16K. 


Distintos ritmos 


Para conseguir que las canciones, o incluso parte de ellas, vayan a distintos ritmos, vamos a añadir 
un nuevo valor de 16 bits: en el byte superior vamos a poner $FF, indicando a nuestro programa que 
se trata de un cambio de ritmo, mientras que en el byte inferior vamos a poner el ritmo, un valor de 
$00 a $0F. 


Creamos el archivo Var3.asm y copiamos dentro todo el código del archivo Var.asm. Vamos a añadir 
dos cambios de ritmo. Localizamos la etiqueta Song_1 y justo debajo de ella añadimos: 


oy Sie 


Cuando el programa se encuentre con esto, lo va a interpretar como un cambio de ritmo ($FF) y que 
tienen que pasar doce interrupciones ($0C) entre cada nota. 


Localizamos la etiqueta Song_2 y justo debajo de ella añadimos: 


dw  $£f06 


En este caso tienen que pasar seis interrupciones ($06) entre cada nota, por lo que podemos deducir 
que la segunda canción va a sonar el doble de rápido que la primera. 


Creamos el archivo Int3.asm y copiamos dentro todo el código del archivo Int.asm. Creamos el 
archivo Test3.asm y copiamos dentro todo el código de Test2.asm. 


Empezamos modificando el archivo Test3.asm. En los include sustituimos Var.asm e Int.asm por 
Var3.asm e Int3.asm y añadimos una línea de comentario a la etiqueta music. 


o Bas Oca SS => Rilicmio 


El resto de las modificaciones las vamos a realizar justo antes de DI, añadiendo las siguientes 
líneas. 


Jal a, (h1) 
and 05 
ld (music), a 


En las líneas anteriores apuntábamos HL a Song_2, y ahora cargamos el valor al que apunta HL en 
A, LD A, (HL), nos quedamos con los bits donde ponemos el ritmo, AND $0F, y cargamos el valor 
en los indicadores para la música, LD (music), A. 


Vamos al archivo Int3.asm y al final del mismo, justo por debajo de counter, vamos a añadir una 
nueva etiqueta para guardar el ritmo que lleva la canción. 


times: db $00 


Ahora, localizamos la etiqueta Isr y cinco líneas más abajo LD A, (counter); justo por encima de 
esta línea agregamos la siguiente: 


is CONT: 


Cuatro líneas más abajo encontramos CP $06; modificamos esta línea dejándola como sigue: 


cp (a1) 


Otras cuatro líneas más abajo encontramos LD hl, MUSIC; justo por encima de esta línea 
agregamos la siguiente: 


1 seus 


Ahora volvemos a la etiqueta Isr y después de los cuatro PUSH implementamos la parte en la que 
vamos a controlar los cambios de ritmo. 


ld a, (MUSIC) 
and sOof 

ld hl, times 

cp (h1) 

JE 4 LS COME 
¡sl tl, 

xXOor a 

la (counter), a 
JE SÉ seu 


Cargamos en A el valor de los indicadores de la música, LD A, (MUSIC), nos quedamos con el 
ritmo, AND $0F, apuntamos HL a la variable donde guardamos el ritmo que lleva la canción, LD 
HL, times, lo comparamos con el ritmo que marcan los indicadores, CP (HL), y si son iguales 
saltamos pues no ha cambiado, JR Z, isr_cont. 


Si ha cambiado el ritmo, ponemos el nuevo ritmo en memoria, LD (HL), A, ponemos A a cero, 
XOR A, y ponemos el contador a cero, LD (counter), A. Por último, saltamos, JR isr_set. 


El aspecto que debe tener Int3.asm es el siguiente: 


org $Te5c 


MUSIC: EQU $5dad 


Sa 

push af 
push bc 
push de 


push hl 


ld a, (MUSIC) 


and sof 

Jal hl, times 

cp (h1) 

ajES Zi AS COME 
la (h1), a 

xXOor a 

ios (counter. E 
JE ESAS 


¡os a, (counter) 
ae a 

ist (CONS r.) dal 
cp (h1) 

3jié nz, isr end 
xor a 

Ml (counter), a 
St seus 

ld DIAM STE 
set 5077 (aL) 
als:e Smola 

pop hl 

pop de 

pop bc 

pop af 

el 

reti 

counter: db $00 
times: do $00 


Ya solo falta modificar la rutina Play para que tenga en cuenta los cambios de ritmo; vamos al 
archivo Sound.asm y tras la quinta línea, OR E, vamos a añadir las siguientes: 


3 Z, Play reset 


cp Sila 


Con OR E comprobamos si se ha llegado al fin de las canciones, en cuyo caso saltamos, JR Z, 
play_reset. Si no hemos llegado al final de las canciones, comprobamos si estamos ante un cambio 


de ritmo, CP $FF. 


La siguiente línea ya la teníamos antes, JR NZ, play_cont, y ahora lo que hace es saltar si no hay un 
cambio de ritmo. 


Seguimos añadiendo líneas justo debajo de JR NZ, play_cont. 


JLo! a, € 

ld (music), a 
ES imal 

leal (PERSOUnNO Al 
et 


Si no hemos saltado es porque hay un cambio de ritmo. Cargamos el nuevo ritmo en A, LDA, E, lo 
cargamos en los indicadores para la música, LD (music), A, apuntamos HL a la próxima nota (a la 
frecuencia), INC HL, actualizamos el valor del puntero a la próxima nota, LD (ptrSound), HL, y 
salimos, RET. El resto de la rutina se queda como está. 


Es el momento de ver como suena, compilamos, cargamos en el emulador y escuchamos los 
resultados. 


pasmo -—-tapbas Test3.asm Test3.tap 


Si todo va bien, las dos canciones se reproducen a distinto ritmo, lo cual podéis apreciar escuchando 
los resultados o viendo la forma de onda, donde veréis claramente que van a distinta velocidad. 


AA A 
E avetorm 


oO 
j [E _HMono 1 120 
v.: -14 Hin: -28 Max: 
Volume : 
Áverage fveq: 28 Hz CEB> 


ñ 
o 


Conclusión 


En este capítulo hemos hecho pruebas de como implementar la música. 


En el próximo capítulo vamos a utilizar lo aprendido para integrar la música en nuestro juego. 


0x0D Música 


Ha llegado el momento de integrar en nuestro juego todo lo que vimos en el capítulo anterior, habrá 
alguna pequeña variación, pero es prácticamente lo mismo. Además, ha llegado la hora de dejar 
todo el código comentado, hay partes que todavía no las tenemos comentadas y si lo dejamos así, 
con el tiempo, es posible que nos cueste más saber que es lo que hacemos ahí y, más importante 
aún, ¿por qué? 


Creamos la carpeta Paso13 y copiamos desde la carpeta Paso12 los archivos Cargador.tap, 
Const.asm, Ctrl.asm, Game.asm, Graph.asm, Int.asm, Main.asm, make o make.bat, Print.asm, 
Var.asm y la carpeta Sound. 


Constantes 


Lo primero que vamos a hacer es declarar las constantes necesarias en el archivo Const.asm, 
empezando por la rutina de la ROM que vamos a usar. Localizamos la etiqueta UDG y justo debajo 
de ella añadimos lo siguiente: 


; Rutina beeper de la ROM. 


¿ imurcacias —Jh => Mota. 


ñ DE => Duración. 


; Altera el valor de los registros AF, BC, DE, HL e IX. 


BEEP: EQU $03b5 


Es muy importante que leamos los comentarios, pues según vemos esta rutina de la ROM altera el 
valor de casi todos los registros, cosa que no hemos tenido en cuenta en el capítulo anterior, pero si 
que lo vamos a tener en cuenta en este capítulo. 


Al final del archivo Const.asm vamos a añadir las constantes de las notas y las frecuencias. 


(E 0 EQU $6868 
Es 0 EQU $628d 
DO EQU $5d03 
Ds 0 EQU $57bf 
ELO EQU $52d7 
FO EQU $4e2b 
Es 0 EQU $49cc 


Ur Ur Ur Ur Ur Ur Ur Ur a) Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur 
) H H H H H H H H H H H 
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; Frecuencias a cargar en DE, 1 segundo ( / 2 = 0.5 ....) 
€ 0 EQU $0010 / $20 
cs 0-18 OU SOQLI / $20 
DO s HU $002 / 520 
DE 03 0 SOULS / 320 
2-0 38 EQU 50014 / $20 
1510) GE EQU $0015 / $20 
Ss 0.53 HQU SO017 / 520 
6 0 EQU $0018 / $20 
GSTUOMES TEQUES 9/3 20 
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h 


E) 
[09] 
h 


H] 
¡09) 
h 


a 
[09] 
h 


» 
[09] 
h 


A A A A NL A A E 


01b 


Old 


Ole 


020 


022 


024 


026 


029 


02b 


02e 


031 


033 


037 


03a 


03d 


041 


045 


049 


04d 


052 


057 


05c 


062 


067 


06e 


074 


07b 


082 


08a 


092 


09b 


Das 


Dae 


0b9 


0c4 


(aia 


Ode 


0e9 


A A IAS AS A A AS AS A A AS A AS 


E 


$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 


$20 


Hh 


Hh 


Hh 


1) 


Hh 


Hh 


Hh 


hh 


Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur Ur ur Ur 02 Ur Ur Ur ÚN) Ur Ur Ur Ur Ur Ur Ur Ur 
C C y) ») (SS ) (=> 


0f6 


105 


AS AS AS 


AS A A AS AS AU AS AS A ASAS ASA A 


SH. SS 


WS 


RE. Su SS 


$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 
$20 


$20 


ES 78 QU $OSES / 920 
D 7 f: EQU $092d / $20 
DS 7_E3 mOw SOS / $20 
7 Eg 1500 50s4d / $20 
F 7_f: EQU $0aea / $20 
Fs_7_f: EQU $0b90 / $20 
G_7_f: EQU $0c40 / $20 
Es. 1_ES H0U SQera / $20 
A_7_f: EQU $0dc0 / $20 
As 7 f: EQU $0e91 / $20 
A A ds 
ELSE EQU LOS 220 
Cs 8 ds H0U 1153 / 820 
DS Es QU SI2H9) / 520 
Ds 8 £: EQU $1372 / $20 
z 8 f: EQU $149a / $20 
E -8 E: EQU si5a1 1 520 
o A O 
G_8_f: EQU $1880 / $20 
Gs_8_£: EQU $19£5 / $20 
ALS E EQUÍSIDSO 4 520 
AS 8 LES EQU SId2S 920 
B_8_f: EQU $lede / $20 
Variables 


El siguiente paso es añadir las variables necesarias: el puntero a la siguiente nota y las canciones. 
Abrimos el archivo Var.asm y añadimos al final las siguientes líneas: 


; Datos necesarios para la música. 


; Siguiente nota 


ptrSound: 


dw  $0000 


; Canciones 


h 


o EA E) E TEL E A EZ E A MEA e MS NS A NS E A E 2 DS AE 
Des 24 ¿AS 2 dE IS 2, 6 Lo, (E 2 


ah E A e E E e E EA E EA MS A e MD AS a NS E A E DA E 
DS INS E NS A E A E) E 


UDS AD SADO ME DIS DIES: 
DSZ dE DS 2 AS E AS E 


DS Ss DS AS E NS A US E NS 


GAS 
N ww 


ay E 3 Ey E 3 6 2 Ey E 2; 
3, DS 3 Ey DS _3Iy M3 Ej dE 


Z Ey E Z2y 63 Ly ES ES 3 E, Ps y PS Ey 23, E 3 Ep 


w 


ING SIZE AS ST SS AO SS CUORE 
AS 2 E, AS 2 


cl DS. 2 E, DS 2, Ss 23, 85 27 DS 2 4, DS. 2, MS 23, Us 2, AS 2 1, 18 2, 6 2 Ep (E 2, 
SALA ES EZ DES ia DES 


ay 63 E, 6 y E 2 Ey € 2 6 2 Ey E 2, EG 35, 6 Sy PS. 3 Ey 95 3, _ 3 Ey 1.3, 1 3 Ep 
5-3, Ds 3 E, Ds 3 1.3 E, 13 


SE ESA E OS a SS dE ES E Sr E MS laa dE pp ela lato da o AS Ida IA O a da 
AS 2 Ey 18 2 


oli Ds 2 4, 8. 2, MS 2 E, US 2p Des 2-17 1D -2, 148 23, 1108 Lo 6 2 dj) 6 2) A 2 E) IN 
E 2 Lp 62 


E A EA EA O e EA E SA e DS AS NS A EA E DS E 
DS 27 188 237 148 2D E 20) 6.2 


oy E 2 EA E e E 2 E E DS A e DS A AS NS EA e E IDE E 
DS 2, 18 2 dE LS 2 1 2 dE E 


hy 1D 4 dE, 1D) 4) 1D) A e) 14) 1 4 se) 15 4) 10,4 e, 12 4) € 3 y SC Sy 04 E, 64, 4d) dd, 
EE a) E ly EA) OA AA E A A AE) BA) A) A) 1 ae) A BS 4 E) 15% 


hy 1D E) 1D 4 1D 4 dE) 1D 4) 14 4 e, 18 4, 1 4 de) 18 Ly € 2 Ey € Sy €) Ep CS) Be, 
IN E NA Ay GA) Dot Da) DS) 1D). 0, A dE A 


oi IDE A a) 1 4 1D 4 dE) 1 4) da 4 3) 1 4, 10 e 1 4) (0 31) CO Bd) Bl) 2 E) A 
GE, 64 64t,G6G4 44,244, B4f,B4, 42, Al, DB 4 £, E 4, Es 4 €, Es 4 


iy 1D5 E, 5, D_5 E, 1D5, 6 9 E, 6 y 5 €, 15, Ds 5 £, DS 5, 3 E, D5, € 3 E, 
Cy 2.4 E, 54% 40, 4%, 64 56% M5, D_5 


y 1014 E, D)4, D4 E, Dé, .D.4 Dé Gdl D5t1D5 


¿iy 3 E, ES, 2.4 2, 1514, Ad E, ¿4 4, E SE, € y DIE, D_5 


iy €-5S ss, 0105 5%, 14 403/1465, 065 Ds, 1.5 


¿iy € 3 E, € 5, 0.4 3, 1554, € 3 Ey € 3y AL E, 244 


dw  $0000 


Como vimos en el capítulo anterior, necesitamos tener una variable de indicadores para la música. 
Vamos a Main.asm y vemos los indicadores del juego, flags. Justo debajo vamos añadir los 
indicadores para la música. 


; Indicadores de la música 


¿ Bit 0 a 3 -> Ritmo 
¿ Bit 7 -> suena 0 = No, 1 = Sí 


Recordad que estas etiquetas tienen que estar de inicio a cero, de lo contrario todo podría dejar de 
funcionar tal y como vimos en el capítulo 5. 


Reproducción 


Continuamos ahora con la rutina que se va a encargar de reproducir el sonido; vamos al archivo 
Game.asm. 


Antes de nada, es necesario indicar que canción va a sonar y el ritmo. Dado que tenemos dos 
canciones, en los niveles pares vamos a empezar con la primera canción, mientras que en los 
impares vamos a empezar con la segunda canción. 


Localizamos la etiqueta ChangeLevel, y vemos que la octava y novena línea son: 


inc a 


cp Sit 


Justo entre estas dos líneas vamos a implementar el cambio de canción dependiendo del nivel: 


ld hl1, Song_1 

bit $00, a 

3 Zz, ChangelLevel cont 
ld ht, Song 2 


changeLevel_cont: 


glo (PERSOUNO)AAl 
ex A A 

JLo! a, (hl) 

ld (music), a 

ex ar ar” 


Apuntamos HL a la primera canción, LD HL, Song_1, comprobamos el bit cero de A para saber si 
el siguiente nivel es par o impar, BIT $00, A, y saltamos si es par. Si es impar apuntamos HL a la 
segunda canción, LD HL, Song_2. 


Actualizamos el puntero a la nota siguiente (en realidad el ritmo), LD (ptrSound), HL, preservamos 
el valor de AF ya que A contiene el siguiente nivel, EX AF, AF”, cargamos en A el ritmo, LD A, 
(HL), actualizamos los indicadores de la música, LD (music), A, y recuperamos el valor de AF, EX 
AF, AF”. 


El aspecto final de la rutina es el siguiente: 


; Cambia de nivel. 

; Altera el valor de los registros AF, BC, DE y HL. 

Changelevel: 

ld a, $06 ; Carga el color amarillo en A 

ld (enemiesColor), a ; Actualiza el color en memoria 

ds! a, (levelCounter + 1) ; Carga en A el nivel actual en BCD 
inc a ; Incrementa el nivel 

daa ; Hace el ajuste decimal 

os ¡e ; Carga el valor en B 

Jal a, (levelCounter) ; Carga el nivel actual en A 

no a ; Carga en A el siguiente nivel 

JLo! ind, Some 1 ; Apunta HL a la canción 1 

labia $00, a ; Evalúa el bit cero del nivel para saber si es par 


aJós Zz, Changelevel cont ¿SL es par salirte 


ld ind, Some 2 ; Si es impar apunta HL a la canción 2 


changeLevel_cont: 


ld (ptrSound), hl ; Actualiza la siguiente nota 

ex EME QuE" ; Preserva el registro AF (A = siguiente nivel) 
ld a, (hl) ; Carga en A el byte inferior de la nota (ritmo) 
ld (music), a ; Lo carga en los indicadores de la música 

ex CN ; Recupera el valor de AF 

ep Silla ; Compara si el nivel es el 31 

312 c, ChangelLevel end ; Si no es el 31, salta 

ld aj Sul ¿Sis el 31, lo peras a 1 

ld dy E ; Cargamos el valor en B 


changeLevel_ end: 


la (levelCounter), a ¿ Actualiza el nivel en memoria 

la a, b ; Carga en A el nivel en BCD 

la (levelCounter + 1), a ¿ Lo actualiza en memoria 

exauLl LoadUdgsEnemies ; Carga los gráficos de los enemigos 

ld a, $20 ; Carga en A el número total de enemigos 
la (enemiesCounter), a ; Lo carga en memoria 

ld hl1, enemiesConfiglni ; Apunta HL a la configuración inicial 

Jl! de, enemiesConfig ; Apunta HL a la configuración 

Jl! bc, enemiesConfigEnd - enemiesConfiglni ; Carga en BC la longitud 


; de la configuración 


JLolátíe ; Carga la configuración inicial en la configuración 
JLo! pits np Bos ; Apunta HL a la posición de la nave 

ld (Ga), SEUS 1LNI p Cenega lla posicion almáleierL 

met 


Y ahora vamos a implementar la rutina que va a hacer sonar las canciones, lo vamos a hacer antes 
de la rutina RefreshEnemiesFire. 


Play: 


Mis IL, (GRS Ot!) 


ld e, (h1) 

inc hl 

ld da, (h1) 

ld a, A 

or e 

jr Z, play reset 


Cargamos en HL la dirección de la nota actual, LD HL, (ptrSound), cargamos en E el byte inferior 
de la frecuencia, LD E, (HL), apuntamos HL al byte superior, INC HL, lo cargamos en D, LD D, 
(HL), lo cargamos en A, LD A, D, y evaluamos si es el fin de las canciones, OR E, en cuyo caso 
saltamos, JR Z, play_reset. 


cp SÍ 

3 nz, play cont 
ld a, € 

ld (music), a 

e hl 

la (Ote Sota!) Im 
Sie 


Si no hemos saltado, comprobamos si la nota en realidad es un cambio de ritmo, CP $FF, y 
saltamos si no es así, JR NZ, play_cont. 


Si no hemos saltado, cargamos el ritmo en A, LD A, E, actualizamos los indicadores para la música, 
LD (music), A, apuntamos HL a la siguiente nota (frecuencia), INC HL, actualizamos el puntero, 
LD (ptrSound), HL, y salimos, RET. 


play reset: 


Jl! hl1, Song_1 
la (PERSOUnNO) Al 
Le 


Si hemos llegado al final de la canciones apuntamos HL a la primera canción, LD HL, Song_1, 
actualizamos el puntero, LD (ptrSound), HL, y salimos, RET. 


play cont: 

ES hl 

ld ely (mal) 

e h 

ld 19 (aL) 

inc h 

¡Lal (PERSOUNO)AAl 
ld ly] 19 


Si no hemos llegado al final de las canciones, ni ha habido un cambio de ritmo, apuntamos HL al 
byte inferior de la nota, INC HL, lo cargamos en C, LD C, (HL), apuntamos HL al byte superior, 
INC HL, lo cargamos en B, LD B, (HL), apuntamos HL a la siguiente nota, INC HL, actualizamos 
el puntero, LD (ptrSound), HL, cargamos el byte superior de la nota en H, LD H, B, y el inferior en 
L, LD L, C. 


Al inicio del capítulo declaramos la etiqueta BEEP con el valor de la dirección de memoria donde 
está alojada la rutina BEEPER de la ROM. Si vemos los comentarios, esta rutina recibe en HL la 
nota y en DE la frecuencia, por lo que ya tenemos todo listo para llamarla. 


He aquí la diferencia fundamental con respecto a la implementación que hicimos en el capítulo 
anterior dado que vamos a añadir algún tipo de efecto especial, motivo éste para que 
implementemos en una rutina propia la llamada a la ROM. 


Play beep: 
push af 
push be 
push de 
push hl 
eau BEEP 
pop Imal 
pop de 
pop be 
pop af 
mete 


Preservamos los valores de los registros, PUSH AF, PUSH BC, PUSH DE, PUSH HL, llamamos a 
la rutina de la ROM para hacer sonar la nota, CALL BEEP, recuperamos el valor de los registros, 
POP HL, POP DE, POP BC, POP AF, y salimos, RET. 


Ahora podemos llamar a Play para que vaya sonando la música durante la partida, y a Play_beep 
para hacer sonar notas sueltas, como los efectos de sonido. 


Es muy importante no cambiar el orden en el que están implementadas las rutinas, tened en cuenta 
que Play sale por Play_beep, si cambiamos el orden el resultado puede no ser el deseado. 


El aspecto final de la rutina es el siguiente: 


; Hace sonar las canciones. 


; Altera el valor de los registros AF, BC, DE y HL. 


JLo ÉL, (GANE SOUIAC)) ; Carga en HL la dirección de la nota actual 


LO 


inc 


Lee 


e, (h1) 
hl 

el, (Umi) 
a, A 

e 


MAYAS Sea 
Sula 


nz, play cont 


(PERSOuUnoO) Al 


playires sa: 


ld h1, Song_1 

Es! (Ote Sota!) im 
RSE 

play cont: 

inc hl 

ld ey (mal) 

LS hl 

ld 19, (mL) 

inc hl 

1 (he Sota!) , Im 
ld lay 19 

1 UA 


; Hace sonar una nota. 


po lumiciacias ib => Notes 


, 


9) 
el 


=> Frecuencia 


Play beep: 


push 


push 


af 


be 


y 


Carga en E el byte inferior de la frecuencia 


Apunta HL al byte superior 


o censeja Sa 1D) 


Lo carga en A 

Comprueba si es el final de la canción 

Salta si es el final 

Comprueba si escambio de ritmo 

Si no cambia el ritmo salta 

Carga el nuevo ritmo en A 

Carga el nuevo ritmo en los indicadores de la música 
Apunta HL a la siguiente nota 


Actualiza el puntero 


Apunta HL a la primera canción 


Actualiza el puntero 


Apunta HL al byte inferior de la nota 
Lo carga en € 


Apunta HL al byte superior de la nota 


9. esusgjal. Sa de 


Apunta HL a la frecuencia de la siguiente nota 


Actualiza el puntero 


Carga la nota en HL 


push 
push 
Call 
pop 
pop 
pop 


pop 


Le 


de 


Jal ; Preserva el valor de los registros 


BEEP ; Llama a la rutina de la ROM 


af ; Recupera el valor de los registros 


Tenemos que incluir la llamada a Play desde el bucle principal del juego. Volvemos al archivo 
Main.asm, localizamos la etiqueta Main_loop y dentro de la misma la línea CALL 
CheckCrashShip. Justo debajo de esta línea añadimos las siguientes: 


ld 
bit 
312 
res 


adil 


Gal, mise 
$07, (hl) 
Zz, Main loopCont 
507 (saul) 


Play 


main loopCont: 


Apuntamos HL a los indicadores para la música, LD HL, music, comprobamos si el bit siete está 
activo, BIT $07, (HL), y saltamos si no lo está, JR Z, main_loopCont. 


Si el bit siete está activo lo desactivamos, RES $07, (HL), y hacemos sonar la siguiente nota de las 
canciones, CALL Play. 


Por último, añadimos la etiqueta a la que saltamos cuando el bit siete no está activo, 
main_loopCont. 


El aspecto de Main.asm una vez comentado es el siguiente: 


org 


AE 


$5dad 


-> se debe mover la nave 0 = No, 1 = Sí 
=> el disparo está activo 0 = No, 1 = Sí 
-> se deben mover los enemigos 0 = No, 1 = Sí 
=> cambia dirección enemigos 0 = No, 1 = Sí 
-> mover disparo enemigo 0 = No, 1 = Sí 


; Indicadores de la música 


¿Bite 0 aS => Ramo 
p lEble 7 => smena 
music 

db $00 

Main: 

ld a, $02 

Cad OPENCHAN 

ile E h1, udgsCommon 
ld (UDG), hl 

ld nl, AMÓN E 
permanentes 

ld (h1), $07 
Call ÉS 

xor a 

out (SiS), al 

ld a, (BORDCR) 
and $cO 

or $05 

ld (BORDCR), a 
di 

ld a, $28 

ld Ala 

im 2 

ei 

lil a, (flags) 
Main start: 

ld hl, enemiesCounter 


Abre el canal 2, pantalla superior 


Apunta HL a la dirección de los UDG 


Cambia la dirección de los UDG 


Apunta HL a la dirección de los atributos 


Pone la tinta en blanco y fondo en negro 


Limpia la pantalla 


Borde = negro 

Carga el valor de BORDCR en A 

Se queda con brillo y flash 

Pone la tinta a 5 y el fondo a O 


Actualiza BORDCR 


Desactiva la interrupciones 
Carga 40 en A 

Lo carga en el registro I 

Pasa a modo 2 de interrupciones 


Activa las interrupciones 


Carga los indicadores en A 


Apunta HL al contador de enemigos 


JeliLía 


Sad 


ceadul 


Call 


¡adi 


Sad. 


adi 


Cad 


cad 


cadul 


cal 


de, enemiesCounter + $01 
(SOLO 


96, $08 


ay 205 


(livesCounter), a 


ResetEnemiesFir 
ChangelLevel 
PrintFirstScreen 
PrintFrame 
PrintInfoGame 
PrintShip 


PrintInfoValue 


LoadUdgsEnemies 


PrintEnemies 


tardo 


Sleep 


; Bucle principal 


Main loop: 


cad 


caló 


push 


sad 


pop 


ld 
or 


AE 


¡adi 
Sad 
adi 


Cad 


¡adi 


CheckCtrl 


MoveFire 


de 
CheckCrashFire 


de 


a, (enemiesCounter) 


a 


24 WSL ¡SSicauttE 


MoveShip 


ChangeEnemies 
MoveEnemies 


MoveEnemiesFire 


CheckCrashShip 


Y 


= 


Apunta DE al contador de niveles 


Pone a cero el contador de enemigos 


Carga en BC el número de bytes a limpiar 


Limpia los bytes 


Pone el contador de vidas a 5 


Inicializa los disparos enemigos 

Cambia de nivel 

Pinta la pantalla de menú y espera 

Pinta el marco 

Pinta los títulos de información de la partida 


Pinta la nave 


Pinta la información de la partida 


Carga los enemigos 


Los pinta 


Produce un retardo antes d mpezar el nivel 


Comprueba la pulsación de los controles 


Muevo el disparo 


Preserva DE 


Evalúa las colisiones entre enemigos y disparo 


Recupera DE 


1 número d 


Carga nemigos activos en A 
Comprueba si es O 


Si es 0 salta 


ueve la nave 
Cambia la dirección de los enemigos si procede 
ueve los enemigos 


ueve los disparos de los enemigos 


Evalúa las colisiones entre la nave 


ld 
bit 
ae 
res 


¡Al 


ll, muse 
5077 (aL) 
Z, main loopCont 
$077 (ni) 


Play 


main loopCont: 


ld 
or 


3% 


JE 


a, (livesCounter) 
a 


Z, GameOver 


Main loop 


Main restart: 


ld a, (levelCounter) 
cp $le 

356 Z, Win 

ml! FadeScreen 

eat ChangelLevel 
sad PrintFrame 

eaulll PrintInfoGame 
caulll ICE Sao 

edL Il PrintInfoValue 
saul PrintEnemies 
Call ResetEnemiesFir 
; Retardo 

enla Sleep 

32 Main loop 

; ¡GAME OVER! 

GameOver: 

xXOor a 

ex dl PrintEndScreen 
Jp Main start 


Y 


y los enemigos y sus disparos 


Apunta HL a los indicadores para la música 
Evalúa si debe sonar una nota 
Si no debe sonar, salta 


Desactiva el bit siete de music 


Hace sonar la nota 


Carga las vidas en A 


Comprueba si están a cero 


Si están a cero salta, ¡GAME OVER! 


Bucle principal 


Carga el número de nivel en A 


Comprueba si es el 31 (tenemos 30) 
Si es el 31 salta, ¡VICTORIA! 
Hace el fundido de la pantalla 
Cambia de nivel 

Pinta el marco 

Pinta los títulos de información 
Pinta la nave 


Pinta la información 


Pinta los enemigos 


Reinicia los disparos de los enemigos 


Produce un retardo 


Bucle principal 


Pone A= 0 
Pinta la pantalla de fin y espera 


Menú principal 


EV CMO RIEL 


Win: 

ld ap SO ¿ Pome Jn = 1 

cjadlal PrintEndScreen ; Pinta la pantalla de fin y espera 
Jp Main start ; Menú principal 


include "Const.asm" 
include "Var.asm" 

include "Graph.asm" 
aciltas Mesa. asia 


include "Ctrl.asm" 


include "Game.asm" 


end Main 


Control de música por interrupciones 


Es la rutina de interrupciones el lugar donde indicamos el momento en el que tiene que sonar una 
nueva nota, vamos al archivo Int.asm y lo primero que vamos a hacer añadir dos constantes justo 
por delante de T1: EQU $C8: 


FLAGS: EQU $5dad 


MUSIC: EQU $5dae 


Estás etiquetas hacen referencia a las posiciones de memoria en las que tenemos definidos los 
indicadores en Main.asm. 


Después de los cuatro PUSH de la etiqueta Isr, nos encontramos la línea LD HL, $5DAD que 
vamos a modificar dejándola como sigue: 


ld hl1, FLAGS 


Al final del archivo vamos a añadir las variables donde guardar el ritmo de la canción, y el contador 
para saber si hay que activar el bit que indicará que hay que hacer sonar una nota. 


countTempo: db $00 


tempo: db $00 


Localizamos la etiqueta Isr_T1, y en la quinta línea encontramos JR NZ, Isr_end. Vamos a 
modificar esta línea dejándola como sigue: 


fs nz, Isr sound 


Localizamos la etiqueta Isr_end y justo por encima de ella vamos a implementar el control de la 
música. 


Tst sound: 

ld a, (MUSIC) 

and Sof 

io hl1, tempo 

cp (h1) 

JE Z, Isr soundCont 
la (hl1), a 

318 Isr soundEnd 


Cargamos en A los indicadores para la música, LD A, (MUSIC), nos quedamos con el ritmo, AND 
$0F, apuntamos HL al ritmo actual, LD HL, tempo, y lo comparamos con el ritmo que hay en los 
indicadores para la música, CP (HL). Si los dos valores son iguales, no hay cambio de ritmo y 
saltamos, JR Z, Isr_soundCount. Si los valores son distintos, actualizamos el ritmo actual, LD 
(HL), A, y saltamos, JR Isr_soundEnd. 


StEsouna Cont: 

la a, (countTempo) 
no a 

1 (countTempo), a 
cp (h1) 

16 nz, Isr end 


Cargamos en A el contador del ritmo, LD A, (countTempo), lo incrementamos, INCA, lo 
actualizamos en memoria, LD (countTempo), A, los comparamos, CP (HL), y si no son iguales, no 
hay que hacer sonar la nota y saltamos, JR NZ, Isr_end. 


Isr soundEnd: 

xor a 

1 (countTempo), a 
ld MUS TS 

set $07, (h1) 


Si no hemos saltado hay que hacer sonar la nota. Ponemos A a cero, XOR A, actualizamos el 
contador del ritmo, LD (countTempo), A, apuntamos HL a los indicadores para la música, LD HL, 
MUSIC, y activamos el bit siete para indicar que debe sonar una nota, SET $07, (HL). 


El aspecto final de Int.asm, una vez comentado, es el siguiente: 


org $Te5c 

FLAGS: EQU S$5dad ; Indicadores generales 

MUSIC: EQU $5dae ; Indicadores para la música 

¿CAE EQU $c8 ; Interrupciones para activar el cambio de dirección de enemigos 


ISE 8 
push 
push 
push 


push 


ld 


set 


ld 
inc 
JLel 
sub 
JE 
ld 
set 


set 


h1, FLAGS 


500, (h1) 


a, (countEnemy) 


(countEnemy), a 
sos 


mp Si ML 


(countEnemy), a 
SOZ2/ (mL) 


$04, (h1) 


Preserva el valor de los registros 


Apunta HL a los indicadores 


Activa el bit 0, mover nave 


Carga en A el contador para mover los enemigos 
Lo incrementa 


Lo actualiza 


Le resta 3 

Si el valor no es cero, salta 

Pone el contador a cero 

Activa el bit 2 de los indicadores, mover enemigos 


Activa el bit 4, mover disparo enemigo 


; Cambio de dirección de los enemigos 


Ls Tis 
ld 
ES 
ld 
sub 
É 
ld 


ssl 


enemigos 


7 Somiclo 


an ACOMnETL) 

a 

(EU 
TL 

nz, Isr sound 
(EDUNETIAE a 


$03, (h1) 


Sa sound 


ld 
and 
ld 
cp 
36 
ld 


EJES 


a, (MUSIC) 


ES ES OURAN 


(nl), a 


Isr_soundEnd 


Y 


, 


, 


Carga en A el contador para cambiar la dirección 
Lo incrementa 


Lo actualiza en memoria 


Le resta las interrupciones que tienen que pasar 
Si el valor no es cero, salta 


Pone el contador a cero 


Activa el bit 3 de los indicadores, cambiar dirección 


Carga en A el valor de los indicadores para la música 


Se queda con el ritmo 

Apunta HL al ritmo actual 

Lo compara con los indicadores para la música 
Si son iguales, salta 

Si son distintos, actualiza el ritmo actual 


Salta para hacer sonar la nota 


Isr soundCont: 


ld a, (countTempo) Carga en A el valor del contador del ritmo 
ano a Lo incrementa 

Ja! (countTempo), a Lo actualiza en memoria 

cp ¡Beal Lo compara con el ritmo actual 

JE 0, Isi? enel Sal Soja cositas, Seulra 

Isr soundEnd: 

xXOor a ; Pone A=0 

Jo! (countTempo), a ; Pone el contador de ritmo a 0 

ld hl1, MUSIC ; Apunta HL a los indicadores para la música 
set SO (E) ¿ Activa el bit 7, sonar 

siena 

pop af 

pop be 

pop de 

pop hl ; Recupera los valores de los registros 

ei ; Activa las interrupciones 

reti ¿ Sale 


; Contador para cambio de dirección de los enemigos 
counaale db $00 


; Contador para movimiento de los 


nemigos 


countEnemy: db $00 


¿ Contador para hacer sonar notas 
countTempo: db $00 


2 iRatiemto exciciilerL 


tempo: db $00 


Si compilamos y cargamos en el emulador, debemos tener música durante la partida, y cada nivel, 
ya sea par o impar, debe empezar sonando una u otra canción. 


Si la dificultad es demasiada, en el bucle principal comentad la línea CALL CheckCrashShip, para 
evitar que nos maten. 


Efectos de sonido 


Además de la música, vamos a implementar efectos de sonido. En concreto vamos a implementar 
tres efectos distintos: 


+ Con el movimiento los enemigos. 
+ Con la explosión la nave. 
+ Con el disparo. 


Estos efectos de sonido los vamos a implementar como rutinas independientes en Game.asm. Como 
ya hemos visto como hacemos sonar cada nota, vamos a ver el código final de las rutinas sin entrar 
en detalle, llegados a este punto ya dominamos esta parte. 


Localizamos la rutina RefreshEnemiesPFire y justo por delante de ella añadimos las líneas 
siguientes: 


; Emite el sonido del movimiento de los enemigos 


1] 


; Altera el valor de los registros HL y Di 


PlayEnemiesMove: 

ld hl1, $0a ; Carga la nota en HL 

ld de, $00 ; Carga la frecuencia en DE 
all Play beep ; Emite la nota 

ld nl, Si4 ; Carga la nota en HL 

ld de, 2520 ; Carga la frecuencia en DE 
rail Play beep ; Emite la nota 

ld il, $02 ; Carga la nota en HL 

ld de, S10 ; Carga la frecuencia en DE 
sail Play beep ; Emite la nota 

lll in, 330 ; Carga la nota en HL 


ld ds, SiS ; Carga la frecuencia en DE 


3138 Play beep ; Emite la nota y sale 


; Emite el sonido de la explosión de la nave 


; Altera el valor de los registros HL y DE 


PlayExplosion: 

ld al) S278/0 ; Carga la nota en HL 

ld de, Sula Y $20 ; Carga la frecuencia en DE 
cadall Play beep ; Emite el sonido 

ld laal, SIS ica ; Carga la nota en HL 

ld de, $37 Y 820 ; Carga la frecuencia en DE 
cal Play beep ; Emite el sonido 

ld ll, SOS ; Carga la nota en HL 

ld de, $392 Y 3520 ; Carga la frecuencia en DE 
Call Play beep ; Emite el sonido 

ld ll, Silaze ; Carga la nota en HL 

ld de, sal / 820 ; Carga la frecuencia en DE 
5)16 Play beep ; Emite el sonido y sale 


; Emite el sonido del disparo de la nave 


[5] 


; Altera el valor de los registros HL y Di 


, 


PlayFire: 

JLo! In, 30 ; Carga la nota en HL 

ld de, SO ; Carga la frecuencia en DE 
JS Play beep ; Emite el sonido y sale 


Como podemos ver, en las tres rutinas se van cargando las notas en HL, las frecuencias en DE, y se 
llama con CALL a la rutina Play_beep, excepto la última nota de cada efecto, en la que usamos JR 
para salir con el RET de Play_beep. 


Ya solo queda llamar a cada rutina. Localizamos la rutina MoveEnemiesFire, y vemos que la última 
línea es JP RefreshEnemiesFire. Justo por encima de esta línea vamos a añadir la llamada al 
sonido que vamos a emitir cuando se mueven los enemigos, más en concreto sus disparos. 


Call PlayEnemiesMove ; Emite el sonido de movimiento de enemigos 


La siguiente llamada que vamos a incluir es al sonido que se produce al disparar. Localizamos la 
rutina MoveFire y tras la sexta línea, SET $01, (HL), añadimos las líneas siguientes: 


push hl ; Preserva el valor de HL 
Call PlayFire ; Emite el sonido del disparo 
pop la dL ; Recupera el valor de HL 


En el caso del sonido de la explosión, no vamos a llamarlo desde Game.asm, aunque parezca 
incoherente. 


Si localizamos la etiqueta checkCrashShip_endLoop, que está dentro de la rutina 
CheckCreashShip, y nos fijamos en la línea anterior JP PrintExplosion, podemos deducir que 
cuando la nave es alcanzada saltamos a pintar la explosión, y si vamos a PrintExplosion, 
observamos que pinta la explosión y salta a pintar la nave, JP PrintShip y sale por allí. 


Visto esto, y para no tener que modificar el comportamiento actual, y aunque no sea coherente, la 
llamada a la emisión del sonido la vamos a hacer desde PrintExplosion. Vamos al archivo 
Print.asm, localizamos la rutina PrintExplosion y vemos que la última línea es JP PrintShip. Justo 
por encima de esta línea añadimos la siguiente: 


Call PlayExplosion ; Emite el sonido de la explosión 


Ya tenemos la música y todos los efectos de sonido de nuestro juego. Ahora podemos compilar y 
ver los resultados. 


Conclusión 


En este capítulo hemos añadido efectos de sonido e integrado la música del capítulo anterior para 
que suene durante la partida. 


En el próximo capítulo implementaremos la selección de distintos niveles de dificultad, la 
posibilidad de silenciar la música y añadiremos la pantalla de carga. 


Ox0E Dificultad, mute y pantalla de carga 


En este capítulo vamos a dar la posibilidad de seleccionar entre cinco niveles de dificultad, silenciar 
la música durante la partida e incluir la pantalla de carga. 


Creamos la carpeta Paso14 y copiamos desde la carpeta Paso13 los archivos Cargador.tap, 
Const.asm, Ctrl.asm, Game.asm, Graph.asm, Int.asm, Main.asm, make o make.bat, Print.asm y 
Var.asm. 


Dificultad 


Dependiendo del nivel de dificultad seleccionada, el comportamiento de los enemigos va a variar, 
así como el número de vidas. 


En los niveles uno y dos, las naves enemigas no llegan hasta la posición de nuestra nave, y los 
disparos enemigos simultáneos es uno en el nivel uno y cinco en el nivel dos. 


En el resto de niveles, las naves enemigas llegan hasta la posición de nuestra nave (ese es el 
comportamiento que tienen ahora), y en el caso del nivel tres los disparos enemigos simultáneos es 
uno, mientras que en los niveles cuatro y cinco son cinco. La diferencia entre el nivel cuatro y cinco 
es que en el cuatro, cada vez que se supera un nivel volvemos a tener cinco vidas, al más puro estilo 


Plaga Galáctica. 


Ya que vamos a dar la opción de seleccionar entre cinco niveles de dificultad, debemos modificar la 
pantalla de inicio. 


Vamos al archivo Var.asm, y modificamos las etiquetas title y firstScreen, dejándolas de la siguiente 
manera: 


iciteles 


db $10, $02, $16, $00, $08, "BATALLA ESPACIAL", $0d, $0d, SÉ 


firstScreen: 

do $10, $06, "Las naves alienigenas atacan la", $0d 

cla "Mierza, el Fuevico clajgeanade els tal." S0el, Sel 

db "Destruye todos los enemigos que", $0d 

db "puedas, y protege el planeta.", $0d, $0d 

dla SILO, $09, "4 => Isewmerzds", sio, S08, Silo, x= Dermaciaa) 
dla  S06l, SO, "Y = Disparo”, Si6, SUa, Silo, “M4 = Semicio", SO, SO6Í 
dl SiO, su Vil = mércilclo S= Sinclair 16%, sé, so6el 
do "2 - Kempston 4 = Sineclais 2%, SUél, $06 

dla SO, $07, S16, SLO, S07, "5 = Mistiecultac Y, $00, SOcl 
db $10, $05, "Apunta, dispara, esquiva a las", $0d 


db "naves enemigas, vence y libera", $0d 


db "al planeta de la amenza." 


cl iEsE 


Como añadimos nuevas opciones, quitamos un retorno de carro en el título y varios en el resto de la 
pantalla para que quepa todo. 


Seguimos en Var.asm, localizamos la etiqueta enemiesColor y debajo del valor (DB $06) añadimos 
la etiqueta que vamos a usar para guardar la dificultad seleccionada. 


hardness: 


do $03 


Ahora que tenemos la pantalla de inicio modificada, es necesario mostrar en la misma el nivel de 
dificultad seleccionado. Vamos a Print.asm y tras la rutina PrintFrame implementamos la rutina 
que pinta la dificultad seleccionada: 


; Pinta la dificultad seleccionada en el menú 

; Altera el valor de los registros AF y BC. 

PrintHardness: 

ld a, $02 ; Carga en A la tinta 

exa Ink ; Asigna la tinta 

Jal OS ; Carga en B la coordenada Y (invertida) 
ld Cc, $0a ; Carga en X la coordenada X (invertida) 
sjadlal At ; Posiciona el cursor 

ld a, (hardness) ; Carga en A la dificultad 

add Ej OI ; Le suma el carácter 0 

rst 3110) ; Pinta la dificultad 

LE 


En estos momentos ya debemos tener cierto nivel de conocimientos, así que vamos a explicar la 
rutina solo por encima. 


Ponemos la tinta en rojo (2), posicionamos el cursor, cargamos la dificultad, le sumamos el carácter 
“0” para calcular el código de carácter de la dificultad y lo pintamos. 


Seguimos en Print.asm, localizamos la rutina PrintFirstScreen y tras quinta línea, CALL 
PrintString, añadimos la llamada para pintar la dificultad seleccionada. 


Call PrintHardness 


Compilamos, cargamos en el emulador y vemos los resultados. 


5 - Dificultad 


Como podemos observar, hemos quitado retornos de carro, añadido una nueva tecla de control para 
activar/desactivar la música y añadido la opción de seleccionar la dificultad. 


Ahora vamos a añadir la implementación de la selección de dificultad. Seguimos en Print.asm, 
localizamos la etiqueta printFirstSreen_end, y justo por encima de ella tenemos la línea JR C, 
printFirstScreen_op. Justo por encima de esta línea, añadimos las siguientes: 


35 No, ¡Simi screaa Emol 


asñeiel 


Si se ha pulsado la tecla 4 saltamos al fin de la rutina, JR NC, printFirstScreen_end. Si no se ha 
pulsado, rotamos A a la derecha para saber si se ha pulsado el 5. 


La siguiente línea ya estaba, JR C, printFirstScreen_op, y la dejamos como está, si no se ha 
pulsado el 5 salta para seguir en el bucle. 


Por debajo de esta línea, añadimos las siguientes, que se ejecutaran en el caso de haber pulsado el 5: 


Lal a, (hardness) 

inc a 

cp $06 

Je Na aci scr. OScoate 
ld a, $01 


Cargamos la dificultad en A, LD A, (hardness), la incrementamos, INC A, evaluamos si ha llegado 
a seis, CP $06, saltamos si no ha llegado, JR NZ, printFirstScreen_opCont, y si sí hemos llegado 
la ponemos a uno, LD A, $01. 


printFirstScreen opCont: 
la (hardness), a 
srall PrintHardness 


3 printFirstScreen op 


Actualizamos la dificultad en memoria, LD (hardness), A, la pintamos, CALL PrintHardess, y 
seguimos en el bucle hasta que se pulse una tecla del 1 al 4. 


El aspecto de la rutina es el siguiente: 


; Pantalla de presentación y selección de controles. 


; Altera el valor de los registros AF, BC y HL. 


, 


PrintFirstScreen: 


canal (ÉS ; Limpia la pantalla 

ld hl1l, title ; Carga en HL la definición del título 
Call Brito el ; Pinta el título 

ld hl, firstScreen ; Carga en HL la definición de la pantalla 
eauLal Brin sein ; Pinta la pantalla 

Call PrintHardness ¿ Páimiea, Ja cies em lie col 


printFirstScreen op: 


ld ly SO p carega ll Ea la, Ojscióoa tecias 

ld ay El ; Carga en A la semifila 1-5 

ua a, ($fe) ; Lee el teclado 

rra ; Rota Aa la derecha para saber si ha pulsado 1 
ES o, TOM ies sol ; Si no hay acarreo, se ha pulsado y salta 
ana b ; Incrementa B, opción Kempston 

rra ; Rota Aa la derecha para saber si ha pulsado 2 
JE NARA S es cm enmend! ; Si no hay acarreo, se ha pulsado y salta 
inc o ; Incrementa B, opción Sinclar 1 

rra ; Rota Aa la derecha para saber si ha pulsado 3 
ae nc, printFirstScreen end ; Si no hay acarreo, se ha pulsado y salta 
inc b ; Incrementa B, opción Sinclar 2 

rra ; Rota Aa la derecha para saber si ha pulsado 4 
as ns as cms emmendl ; Si no hay acarreo, se ha pulsado y salta 
rra ; Rota Aa la derecha para saber si ha pulsado 5 
316 ass cms eno y ; Si hay acarreo, no se ha pulsado, bucle 
ld a, (hardness) ; Carga la dificultad en A 

inc a ; La incrementa 

cp $06 ; Comprueba si hemos pasado de 5 

3/52 0] Jasso esa eco y Sil ao lnemos pasacio, sculira 

ld ay Ol 2 Pone 4 al 


printFirstScreen opCont: 


ld (hardness), a ¿ Actualiza la dificultad en memoria 
cjadlal PrintHardness ¿lía ¡giiatEa 
ae ¡ases as + luce mesica cue ¡uules tecla cel ll al 4 


printFirstScreen end: 


ld a 19 ; Carga en A la opción seleccionada 
Rol (controls), a ; Lo carga en memoria 

comal FadeScreen ; Fundido de pantalla 

Let 


Compilamos, cargamos en el emulador y probamos la selección de dificultad. 


¡No funciona! O al menos, no como nos gustaría. Cambia tan rápido de dificultad que es 
extremadamente difícil seleccionar la dificultad deseada. 


Vamos a cambiar la parte de la rutina que evalúa las teclas pulsadas, apoyándonos en las rutinas de 
la ROM, que controlan que haya una pausa entre cada detección de tecla para evitar su repetición, y 
vamos a cambiar al modo de interrupción 1 para que las variables de sistema se actualicen 
automáticamente. 


Vamos al archivo Const.am y vamos a añadir dos contantes que apuntan a dos variables de sistema, 
y que nos hacen falta para saber cual es la última tecla pulsada usando las rutinas de la ROM. 


; Dirección de memoria donde están los flags de estado del teclado cuando 


; están activas las interrupciones en modo 1. 


¿; Bit 3 = 1 entrada en modo L, 0 entrada en modo K. 
¿; Bit 5 = 1 se ha pulsado una tecla, 0 no se ha pulsado. 
¿ Bit 6 = 1 carácter numérico, 0 alfanumérico. 


; Dirección de memoria dónde está la última tecla pulsada 


¿ Cuando están activas las interrupciones en modo 1. 


LAST KEY: egu $5c08 


Si leemos los comentarios podremos saber que es cada cosa. 


Volvemos a Print.asm, localizamos la etiqueta printFirstScreen_op y borramos desde LD B, $01 
hasta JR C, printFirstScreen_op, que está justo antes de LD A , (hardness). 


Justo por encima de printFirstScreen_op añadimos las líneas siguientes: 


di 

im il 

ei 

Al h1, FLAGS KEY 
set 5037 (sul) 


Desactivamos las interrupciones, DI, cambiamos a modo uno, IM 1, reactivamos las interrupciones, 
ET, cargamos en HL la dirección de los indicadores del teclado, LD HL, FLAGS_KEY, y ponemos 
la entrada en modo L, SET $03, (HL). 


Justo debajo de printFirstScreen_op implementamos la lectura del teclado usando la ROM: 


IAE $05, (hl) 
3/16 INES ES eme no. 
res $05, (h1) 


Comprobamos si se ha pulsado una tecla, BIT $05, (HL), si no se ha pulsado vuelve al bucle, JR Z, 
printFirstScreen_op, y si se ha pulsado ponemos el bit 5 a cero para futuras inspecciones, RES 
$05, (HL). 


ld 37 OT 

ld Sy “0% 3 SO] 

la a, (LAST KEY) 

cp e 

sé Z, printFirstScreen end 


Cargamos uno en B (opción teclado), LD B, $01, cargamos en C el código ASCII del uno, LD C, 
“0” + $01, cargamos en A la última tecla pulsada, LD A, (LAST_KEY), comprobamos si es el uno, 
CP C, y saltamos de ser así, JR Z, printFirstScreen_end. 


1LALO) b 
aime e 
cp a 
JE 2 JM cis Simol 


Incrementamos B (opción Kempston), INC B, incrementamos C (tecla dos), INC C, comprobamos 
si se ha pulsado, CP C, y saltamos de ser así, JR Z, printFirstScreen_end. 


Hacemos lo mismo para comprobar si se ha pulsado el tres o el cuatro (Sinclair 1 y 2): 


inc b 


inc E 
cp e 
Ea 2) IE Ss Sol 
aio b 
na e 
cp e 
JS AN SS eme ene nal 


Ya solo nos queda comprobar si se ha pulsado el cinco (dificultad): 


inc E 
cp e 
Sé a AS SENS SM MOO 


Incrementamos C (tecla 5), INC C, comprobamos si se ha pulsado, CP C, y volvemos al inicio del 
bucle si no ha sido así, JR NZ, printFirstScreen_op. 


Ya solo nos queda un aspecto muy importante. Localizamos la etiqueta printFirstScreen_end, y 
justo antes de RET añadimos las líneas siguientes: 


di 


im 2 


el 


Desactivamos las interrupciones, DI, pasamos a modo dos, IM 2, y activamos las interrupciones, 
El 


El aspecto final de la rutina es el siguiente: 


; Pantalla de presentación, selección de controles y dificultad. 


; Altera el valor de los registros AF, BC y HL. 


, 


PrintFirstScreen: 


can (IES ; Limpia la pantalla 

JLo! Debiles ; Carga en HL la definición del título 
Call Prints puig ; Pinta el título 

ld hl1, firstScreen ; Carga en HL la definición de la pantalla 
caca! PrintString ; Pinta la pantalla 

een PrintHardness ¿2 Páimea Ja etica leas! 

di ; Desactiva las interrupciones 


im 1 ; Cambia a modo 1 


el 


Jl! 
teclado 


sel 


, 


h1, FLAGS KEY 


5037  (auL) E 


¡csi sees (Jas 


Ialie 
316 
res 


ld 


inc 
inc 
cp 
sé 
inc 
inc 
cp 
3 
aia 
inc 
cp 
sé 
inc 
cp 
31é 
ld 
inc 
cp 
sé 


ld 


$05, (h1) ; 
ap IES TICS (99 
$05, (h1) ; 
b, $01 ; 
ey "0% 3 SO ; 
a, (LAST KEY) ; 
e 7 
2) IMC iS TESTS en 
b ; 
pe 7 
de 7 
a clics Ela 
b ; 
E 7 
E 7 
AS ES mus ae 
b ; 
e 7 
ca 7 
ap clic ESC Ela 
E 7 
$ 7 


Reactiva las 


; Carga en 


Comprueba si 


ESTO SS 


Es necesario 


Carga 1 en B, 


interrupciones 


HL la dirección de los indicadores del 


Pone entrada en modo L 


se ha pulsado una tecla 
ha pulsado, vuelve al bucle 
poner el bit a 0 para futuras inspecciones 


opción teclas 


Carga el código ASCII del 1 en C 


Carga en A la última tecla pulsada 


Comprueba si 
el ¿Sl se la 
Incrementa B, 
Incrementa C, 
Comprueba si 
d ; Si se ha 
Incrementa B, 
Incrementa C, 
Comprueba si 
d ; Si se ha 
Incrementa B, 
Incrementa C, 
Comprueba si 
d ; Si se ha 
Incrementa C, 


Comprueba si 


0, ais icooreca a) y Sil m9 se 


a, (hardness) ; 
a ; 
$06 ; 


0 CN Soo acom $ 


ar 


so1 E 


Pie ss cre ento. COn 


ld 
cadlll 


ES 


(hardness), a ; 


PrintHardness ; 


printFirstScreen Op ; 


ha pulsado el 1 
pulsado el 1, sale 
opción Kempston 

tecla 2 
ha pulsado el 2 
pulsado el 2, sale 
duclida Simelalse 
tecla 3 
ha pulsado el 3 
pulsado el 3, sale 
dacidan Simelal 2 


tecla 4 


ha pulsado el 4 

pulsado el 4, sale 
wecla 5 

ha pulsado el 5 


ha pulsado sigue en el bucle 


Carga la dificultad en A 


La incrementa 


Comprueba si 


Pone Aa 1 


Actualiza la 


La pinta 


ha pasado de 5 


Si no ha pasado, salta 


dificultad en memoria 


Bucle hasta que pulse tecla del 1 al 4 


printFirstScreen end: 

Jal Ap 19 ; Carga en A la opción seleccionada 
la (controls), a ; Lo carga en memoria 

Call FadeScreen ; Fundido de pantalla 

di ; Desactiva las interrupciones 

im 2 ; Cambia a modo 2 

el ; Activa las interrupciones 

eL 


Compilamos, cargamos en el emulador y comprobamos que podemos seleccionar la dificultad 
deseada. 


Ahora que ya seleccionamos la dificultad, vamos a cambiar el comportamiento de nuestro juego en 
función de la dificultad seleccionada. Según la dificultad, las naves llegan o no hasta la línea donde 
está nuestra nave, y puede haber uno o cinco disparos enemigos a un mismo tiempo; estos dos 
aspectos los controlamos con las constantes ENEMY_TOP_B y FIRES, necesitamos que esos 
valores sean variables, vamos a Var.asm, localizamos la etiqueta hardness, y justo por encima de 
ella añadimos estas líneas: 


enemiesTopB: 


db ENEMY _TOP_B 


firesTop: 


COARETRES 


Ya tenemos nuestras variables, ahora hay que usarlas. Vamos a Game.asm, localizamos la etiqueta 
moveEnemies_Y_down y la línea SUB ENEMY_TOP_B. Vamos a sustituir esta línea por las 
siguientes, leyendo los comentarios sabemos que hace: 


push hl ¿; Preserva el valor de HL 

ld h1l, enemiesTopB ; Apunta HL al tope por abajo 
sub (dnd ; Lo resta 

pop Id ; Recupera el valor de HL 


Seguimos en Game.asm, localizamos la etiqueta enableEnemiesFire_loop y la línea CP FIRES. 
Vamos a sustituir esta línea por las siguientes: 


push hl ¿; Preserva HL 

ld hl1l, firesTop ; Apunta HL al máximo de disparos 
ld e, (mal) p Jo! cars. Ea 6 

pop ld ; Recupera el valor de HL 


Sp E ; Compara el máximo de disparos con los activos 


Con esto ya controlamos hasta donde llegan las naves enemigas por abajo, y el número de disparos 
simultáneos que puede haber, pero necesitamos una rutina que cambie los valores de enemiesTop y 
firesTop en función de la dificultad seleccionada. 


Seguimos en Game.asm, localizamos la rutina Sleep e implementamos justo por encima de ella: 


SetHardness: 

E h1l, enemiesTopB 

ld (h1), ENEMY TOP_B 
la a, (hardness) 

cp $03 

é ae, serleimecaess lali 
He (h1) 


Apuntamos HL al tope de la posición de los enemigos por abajo, LD HL, enemiesTopB, 
actualizamos con el tope por defecto, LD (HL), ENEMY_TOP_B, cargamos la dificultad en A, LD 
A, (hardness), comprobamos si es tres, CP $03, si no hay acarreo es mayor o igual que tres y 
saltamos, JR NC, setHardness_Fire. Si hay acarreo, la dificultad es menor que tres, incrementamos 
en una línea el tope de la posición de los enemigos por abajo, INC (HL). Recordad que trabajamos 
con las coordenadas invertidas. 


setHardness Fire: 

ld hl, firesTop 
ld (h1), $01 

cp $01 

Re Z 

cp $03 

Sa 'Z 

ld Ga) y TRES 
SE 


Apuntamos HL al número máximo de disparos simultáneos, LD HL firesTop, lo ponemos a uno, 
LD (HL), $01, comprobamos si estamos en dificultad uno, CP $01, salimos si es así, RET Z, 
comprobamos si la dificultad en tres, CP $03, salimos si es así. Si no hemos salido, cargamos el 
número máximo de disparos por defecto, LD (HL), FIRES, y salimos, RET. 


El aspecto final de la rutina es el siguiente: 


; Asigna la dificultad 


; Altera el valor de los registros AF y HL 


SetHardness: 


setHardness Fir 


Jl! h1l, enemiesTopB Apunta HL a tope por abajo de los enemigos 

JLo! (h1), ENEMY TOP B Lo actualiza con el tope por defecto 

Jl a, (hardness) Carga la dificultad en A 

cp $03 La compara con 3 

JE nc, setHardness Fir Si no hay acarreo A => 3, salta 

inc (h1) Sube una línea el tope por abajo de los enemigos 


ld h1l, firesTop Apunta HL al máximo de disparos 

JLo! (Ima), SO Lo pone a 1 

(ej9 sol Comprueba si la dificultad es 1 

ret z Sale si es 1 

cp $03 Comprueba si la dificultad es 3 

ret Ez Sale si es 3 

ld (Maul) PRIES Carga los disparos máximos por defecto 
mel 


Ha llegado el momento de probar si la selección de dificultad se comporta como pretendemos. 
Vamos a Main.asm, localizamos la etiqueta Main_start y la línea CALL PrintFirstScreen. Justo 
después de está línea incluimos la llamada a la asignación de la dificultad: 


edil SetHardness ; Asigna la dificultad 


Ya solo queda uno de los aspectos que señalamos al principio; si el nivel de dificultad seleccionado 
es el cuatro, cada nivel lo empezamos con cinco vidas. 


Seguimos en Main.asm, localizamos la etiqueta Main_restart y la línea JR Z, Win. Justo debajo de 
esta línea vamos a implementar el último aspecto de la dificultad: 


rol a, (hardness) 

cp $04 

JE 0% MEU TEStErdoome 
ld a, $05 

ld (livesCounter), a 
main restartCont: 


Cargamos la dificultad en A, LD A, (hardmess), comprobamos si es cuatro, CP $04, y saltamos si 
no lo es, JR NZ, main_restartCont. 


Si no hemos saltado, cargamos cinco en A, LD A, $05, y actualizamos el número de vidas en 
memoria para empezar cada nivel con cinco, LD (livesCounter), A. 


El aspecto final de la rutina es el siguiente: 


Main restart: 


WMA a, (levelCounter) ; Carga el número de nivel en A 

cp Sis ; Comprueba si es el 31 (tenemos 30) 
316 7 La ¿Si es el Sl salica, quie molxial 

Jal a, (hardness) ; Carga la dificultad en A 

cp $04 ; Comprueba si es 4 

3% nz, main restartCont 2 Ba. mo Es , salia 

ld ay SOS ; Carga 5benA 

ld (livesCounter), a ; Pone cinco vidas 


main restartCont: 


sali FadeScreen ; Hace el fundido de la pantalla 
ed ChangeLevel ; Cambia de nivel 

eran al PrintFrame ; Pinta el marco 

Seal PrintInfoGame ; Pinta los títulos de información 
san Barabmts Leño ; Pinta la nave 

eau l PrintInfoValue ; Pinta la información 

cjadlal PrintEnemies ; Pinta los enemigos 

exaull ResetEnemiesFir ; Reinicia los disparos de los enemigos 
; Retardo 

saul Sleep ¿ Produce un retardo 

aj Main loop ; Bucle principal 


Compilamos, cargamos en el emulador y comprobamos que los distintos niveles de dificultad se 
comportan tal y como lo hemos definido. 


Mute 


La implementación de activar o desactivar la música es relativamente sencilla. Vamos a Main.asm y 
añadimos un nuevo comentario a la etiqueta flags: 


¿ Bit 5 => mute 0 = No, 1 = Sí 


En el bit cinco de flags vamos a indicar si el mute está o no activo. 


Ahora tenemos que implementar la activación o desactivación de este bit. Localizamos la etiqueta 
Main_loop, y justo debajo de ella añadimos la nueva implementación: 


ESE $38 


Jl! h1l, FLAGS KEY 


set 508 (al) 


bit $05, (h1) 


els Zz, main loopCheck 


Actualizamos las variables del sistema, RST $38, apuntamos HL a los indicadores del teclado, LD 
HL, FLAGS_KEY, ponemos la entrada en modo L, SET $03, (HL), comprobamos si se ha pulsado 
alguna tecla, BIT $05, (HL), y si no se ha pulsado saltamos. 


res $05, (h1) 

ld a, (LAST KEY) 

cp "M' 

as Zz, main loopMute 
Ccp Er 

316 nz, main loopCheck 


Ponemos el bit cinco a cero para futuras inspecciones, RES $05, (HL), cargamos en A la última 
tecla pulsada, LD A, (LAST_KEY), comprobamos si se ha pulsado la m mayúscula, CP “M”, 
saltamos si se ha pulsado, JR Z, main_loopMute, comprobamos si se ha pulsado la m minúscula, 
CP “m”, y saltamos si no se ha pulsado, JR NZ, main_loopCheck. 


main loopMute: 


Tel a, (flags) 
xXOr $20 
ld (flags), a 


main loopCheck: 


Si se ha pulsado la m, ya sea mayúscula o minúscula, cargamos los indicadores en A, LD A, (flags), 
invertimos el valor del bit cinco, XOR $20, y actualizamos el valor en memoria, LD (flags), A. 
Finalmente, incluimos la etiqueta a la que saltamos y que no existía, main_loopCheck. 


Es buen momento para recordar como actúa XOR a nivel de bit: 


OXORO=0 
OXOR1=1 
1XORO=1 
1XOR1=0 


Si los dos bit son iguales el resultado es cero, si son distintos el resultado es 1. Al hacer XOR $20, si 
el bit cinco está a uno, el resultado es cero, si está a cero el resultado es uno, el resto de bits se 
quedan como estaban. 


El aspecto final del inicio de la rutina Main_loop es el siguiente: 


; Bucle principal 
Main loop: 


rst $38 ¿ Actualiza las variables de sistema 


ld hl, FLAGS KEY p Carga em ll la dirección de los imeliicadores cel 
teclado 


set $087 (auL) ; Pone entrada en modo L 

late SON (tl) ; Comprueba si se ha pulsado una tecla 

3jie Z, main loopCheck ¿ Si no se ha pulsado, salta 

res 505, (al) ; Es necesario poner el bit a 0 para futuras 
inspecciones 

ld a, (LAST KEY) ; Carga en A la última tecla pulsada 

cp paIVIÓ ; Comprueba si ha pulsado la M 

352 z, main loopMute ; Si se ha pulsado la M, salta 

cp Mg ; Comprueba si ha pulsado la m 

3112 nz, main loopCheck ; Si no se ha pulsado la m, salta 


main loopMute: 


JLo! ay (Elags) ; Carga en A los indicadores 
Oia S20 ; Invierte el bit 5 (mute) 
Me (flags), a ¿ Actualiza el valor en memoria 


main loopCheck: 
canal CheckCtrl ; Comprueba la pulsación de los controles 


cadll MoveFire ; Mueve el disparo 


Por último, localizamos la etiqueta GameOver, vemos que la línea de arriba es ésta: 


352 Main loop fc Bucle jorestacijoel 


Sustituimos JR por JP ya que al haber añadido varias líneas, con JR nos daría un error de salto 
fuera de rango. 


Ahora que ya activamos o desactivamos el bit del mute al pulsar la tecla M, vamos a tenerlo en 
cuenta para hacer sonar, o no, la música. Vamos a Int.asm, localizamos la etiqueta Isr_sound y, 
justo debajo de ella, añadimos la líneas siguientes: 


bit SODA (0115) ; Evalúa si el bit 5 (mute) está activo 


3 m0, Si Smol ¿ Si lo está, salta 


Cuando llegamos a Isr_soung HL apunta a flags de Main.asm. Evaluamos si el bit cinco (mute) 
está activo, BIT $05, (HL), y saltamos si es así, JR NZ, Isr_end. 


Es hora de comprobar si hemos implementado correctamente el mute. Compilamos, cargamos en el 
emulador, comenzamos la partida y verificamos que al pulsar la M (sin pulsar otra tecla a la vez) la 
música se silencia, si volvemos a pulsar, vuelve a sonar. Los efectos de sonido siguen sonando. 


Pantalla de carga 


Llegamos al punto final del desarrollo de Batalla Espacial, vamos a añadir la pantalla de carga. 


Desde el inicio del tutorial llevamos arrastrando un aspecto que a la hora de incluir la pantalla de 
carga nos va a producir un error, ya lo vimos en PoromponPong, lo corregimos, pero otra vez he 
vuelto a caer en él; tenemos que cambiar la dirección de inicio de nuestro juego. 


Vamos a Main.asm y cambiamos la dirección de inicio que ahora es ORG $5DAD, por ORG 
$5DFD. 


Vamos al archivo Int.asm y cambiamos FLAGS: EQU $5DAD, y la dejamos como FLAGS: EQU 
$5DFD. También cambiamos MUSIC: EQU $5DAE, la dejamos como MUSIC: EQU $5DFE. 


Si ahora compilamos y cargamos en el emulador nos dará un error, no hemos cambiado las 
direcciones en el cargador. En el cargador, a parte de cambiar las direcciones, vamos a meter un 
POKE que ya usamos en PorompomPong, y la carga a la pantalla de carga. 


El aspecto final del cargador tiene que ser este: 


10 CLEAR 2405939 
EEÑS PORE 237539, 111: LOAD ""SCR 
50 LOAD ""CODE : LOA ""CcOCE 3 
25345 
40 RANDOMIZE USR 24060 


La pantalla de carga, que debéis descargar desde aquí y dejar en la carpeta Paso14, debe presentar 
este aspecto: 


Ya tenemos el cargador modificado y la pantalla de carga en el directorio. Solo nos queda incluir la 
pantalla de carga en BatallaEspacial.tap. 


Si estamos trabajando en Linux, editamos el archivo make y lo dejamos así: 


pasmo --name Marciano --tap Main.asm Marciano.tap --public 


paEásma —==acme me ==u219 me elsa Jae eE 


cat Cargador.tap MarcianoScr.tap Marciano.tap Int.tap > BatallaEspacial.tap 


Si trabajamos con Windows, editamos el archivo make.bat y lo dejamos así: 


pasmo --name Marciano --tap Main.asm Marciano.tap --public 


¡also mem ae S+=Ej9 ae seus Mie y reja 


copy Cargador.tap + MarcianoScr.tap + Marciano.tap + Int.tap BatallaEspacial.tap 


Como podéis observar, hemos añadido MarcianoScr.tap entre Cargador.tap y Marciano.tap. 


Ejecutamos make o make.bat, cargamos en el emulador y hemos terminado, a no ser que vosotros 
queráis cambiar algo... 


Conclusión 


En este capítulo hemos implementado la selección del nivel de dificultad, la posibilidad de silenciar 
la música y hemos añadido una pantalla de carga, finalizando así nuestro juego, pero no el tutorial. 
Todavía nos queda un último capítulo, en el que veremos como configurar algunos aspectos de 
ZEsarUX y como depurar. 


Ox0F Depuración 


Durante todo el tutorial, y anteriormente en el tutorial de PorompomPong, he venido utilizando 
ZEsarUX, un emulador desarrollado por César Hernández y que podéis obtener aquí; César está 
añadiendo nuevas funcionalidades constantemente. 


También cabe señalar que, aunque hemos utilizado ZEsarUX como emulador de ZX Spectrum, es 
capaz de emular muchas máquinas y hacer muchas otras cosas. 


En este capítulo, no vamos a crear carpetas, ni a copiar archivos, tampoco vamos a generar código, 
en este capítulo vamos a profundizar en el uso de ZXesarUX. 


El primer paso es personalizar ZEsarUX a nuestro gusto. Este emulador dispone de muchas 
opciones que puedes configurar, pero nos vamos a centrar en las que en principio me han parecido 
más interesantes de cara al uso que le damos en el tutorial; os animo a que investiguéis vosotros por 
vuestra cuenta. 


Personalización 


Para personalizar ZEsarUX, accedemos al menú pulsado F5 y luego hacemos clic en Settings. 


Es ar UxX 


Lo primero que vamos a hacer es configurar dos teclas de función, una para reiniciar la máquina y 
otra para entrar en depuración. Dentro de Settings accedemos a la opción Function Keys. 
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Vamos a configurar la tecla F11 para que abra la ventana de Debug, y la tecla F12 para reiniciar la 
máquina. 


Una vez dentro de Function Keys, seleccionamos la Tecla F11, bien haciendo clic o pulsando Enter. 


| set Function Keys 
Key El ASS 
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ESC Back 


Una vez seleccionada la tecla, se nos muestran las opciones que podemos elegir; seleccionamos 
DebugCPU. Repetimos la operación para la tecla F12, pero en este caso seleccionamos Reset. 
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Ahora tenemos que probar las teclas, podemos salir del menú pulsando la tecla Esc hasta que se 
cierra completamente, o pulsamos F5 para ir al menú principal y luego Esc. 


Una vez cerrado el menú, comprobamos si pulsando F12 se reinicia la máquina, y si al pulsar F11 
se abre la ventana de Debug. 
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En mi caso, cuando depuro, suelo tener visible la ventana de Debug y la ventana en la que se 
muestra la memoria, por lo que se puede deducir que nos falta espacio. 


Seguimos en Settings, seleccionamos ZX Desktop y seleccionamos la primera opción, Enabled. 
Una vez seleccionada se muestran más opciones de las cuales nos interesa la primera, width. 
Hacemos click sobre ella hasta que el valor sea 512 (u otro que más nos convenga); también 
podemos poner este valor directamente si seleccionamos custom Width. 


Para que el menú se abra en el escritorio debéis seleccionar la opción Open Menu on ZX Desktop. 
Por otro lado, si queréis que el menú no se abra al hacer clic, a mi me resulta más cómodo, en 
Settings/General debéis deseleccionar la opción Clicking mouse open menu. 
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Ahora ya tenemos espacio para abrir otras ventanas y que no compartan espacio con la pantalla de 
nuestro querido ZX Spectrum. 


Como comenté anteriormente, mientras depuro me gusta tener la ventana de depuración y la de 
memoria visibles. Vamos a modificar unas opciones para que podamos ver como se actualiza la 
memoria a medida que nuestro programa se vaya ejecutando, y para que la ejecución pare cuando el 
menú esté abierto. 


Vamos a Settings/ZX Vision y casi al final hay que seleccionar las opciones Stop emulation on 
menu y Background Windows. Una vez activada la segunda opción, se muestra otra opción que 
también tenemos que activar, Even when menu closed. 
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Con esto ya tenemos personalizado, muy por encima, nuestro entorno. Ahora ya solo queda abrir las 
ventanas de depuración y el editor hexadecimal desde el menú Debug y colocarlas a nuestro gusto. 
Recordad que la ventana de depuración también la podemos abrir pulsado F11. 


Dentro de Settings/General, en la última opción podemos cambiar el idioma, aunque en la 
actualidad no todos los términos están traducidos. 


Por otro lado, para interactuar al 100% con las ventanas que vayamos abriendo, en el caso de que no 
responda abrid el menú (F5). 


Depuración 


Supongamos que tenemos un programa que cargamos en la dirección $8000; aseguraos de que no 
tenéis seleccionada la máquina de 16K o no funcionará. 


org $8000 
TasicaloS 

la h1, $4000 
ld de, $8100 
ld Ely (DILE 


Bucle: 


ld (al), a 
ld (de), a 
dec a 

JE nz, Bucle 
Fin: 


Jue Imulesio) 


end $8000 


En este programa apuntamos HL al inicio de la VideoRAM, DE a la posición $8100 y cargamos 255 
(SFE) en A. Tras esto, hacemos un bucle en el que cargamos el valor de A en las posiciones a las 


que apuntan HL y DE. Una vez finalizado el bucle volvemos a la primera instrucción y seguimos en 
un bucle infinito. 


El programa es muy sencillo, pero es suficiente para mostrar lo que os quiero enseñar. 


Lo primero que vamos a hacer es entrar en Debug y poner un punto de interrupción en la dirección 
de memoria $8000, para que la ejecución se pare al inicio del programa. 
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El acceso a las distintas opciones se obtiene pulsando la tecla correspondiente a la letra que está 
resaltada. 


En la parte central de la pantalla, a la izquierda, vemos el código desensamblado y la dirección de 
memoria dónde se ensambla cada instrucción. A la derecha vemos, principalmente, el valor de los 
distintos registros y el estado de los flags. Justo debajo vemos los valores de la pila. 


En la parte superior e inferior vemos las distintas opciones; solo vamos a ver las mínimas necesarias 
para poder empezar a depurar nuestros programas. 


En la parte superior derecha vemos 1-7: View. Pulsando del uno al siete se muestran las distintas 
vistas que tiene esta venta; por defecto se muestra la vista uno. 


En la parte superior izquierda vemos Pointer. Pulsando la tecla T se abre una ventana emergente en 
la que podemos especificar la dirección de memoria en la que nos queremos situar. Si ponemos 
valores hexadecimales, hay que usar el sufijo H. 


a A Yesos? 
328868H 


Una vez que especificamos la dirección, pulsamos Enter y se nos muestra el desensamblado desde 
esta dirección. 


É Debuyg CPU 


(step 
Pointer: 320866H 


2 
Er 1 


alos llos llos) = [17d | 
ll le 
el bb 1D ANA 
Ud y Pr Pr (y PE E CI Pr] 
A oo lao | 
a MOD] Dos 


EJ: 1:58 
2082 
2083 
28084 
2085 
2066 
2087 
2808883 
280689 
2058ñ 
80808B 
88Bc 
C 3 


1 
T 
O 
15El 6F3B 1807?F FFS 
tp Stouvr nt35t 

Ru Riunto 


Scr Menmzn 
nextpcirk cpulist 


Debido a que no hemos cargado ningún programa, todo el desensamblado que vemos es NOP ($00). 


Vamos a establecer un punto de interrupción en la dirección $8000. Si nos fijamos en la cuarta 
opción de la segunda línea de opciones, en la parte inferior de la ventana, vemos Togl; pulsando la 
tecla L establecemos o quitamos un punto de interrupción en la dirección de la línea seleccionada. 
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Ya tenemos establecido un punto de interrupción en la dirección $8000. Al cargar nuestro programa, 
se parará en esta dirección de memoria y entraremos a depurar. Pulsamos la tecla N (Run) para 
continuar y volver al Basic. 


7EsarUX muestra una ventana en la que se nos avisa de que hay un punto de interrupción, solo 
tendremos que pulsar una tecla para entrar en la ventana de Debug. 


Cargamos el programa y depuramos. 
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Para seguir el programa, podemos ejecutar de dos formas distintas: en: Stp y Stovr. En otros 
entornos estos dos modos se conocen como Paso a paso por instrucciones y Paso a paso por 
procedimientos respectivamente. 


En Paso a paso por instrucciones (tecla Enter) la ejecución se hace instrucción por instrucción y 
cuando nos encontramos ante un CALL a una rutina, ya sea nuestra o de la ROM, entramos en la 
misma y tenemos la posibilidad de ejecutarla paso a paso y ver el código de la misma. 


En Paso a paso por procedimientos (tecla O) la ejecución se hace instrucción por instrucción, pero 
cuando nos encontramos ante un CALL a una rutina, ya sea nuestra o de la ROM, se ejecuta la 
misma y el PC (program counter) pasa a la instrucción siguiente al CALL; esto hay que tenerlo muy 
en Cuenta en los bucles. 


En nuestro programa, cuando PC está en la instrucción JR NZ, 8008 si pulsamos la tecla Enter y A 
no vale cero, se salta a la dirección $8008. Por el contrario, si se pulsa la tecla O se ejecuta todo el 
bucle (por así decirlo) y PC pasa a la siguiente instrucción, JR 8000. Haced pruebas y podréis ver 
como se comporta. 


Nuestro programa, en cada iteración del bucle, carga el valor de A en las direcciones de memoria 
apuntadas por HL y DE. Hasta ahora solo podemos ver los distintos valores que se cargan en la 
dirección a la que apunta HL, ya que apunta a la primera dirección de la VideoRAM. 


Para poder ver como va cambiando también el valor de la dirección $8100, abrimos el menú (E5), 
seleccionamos la ventana Hexadecimal Editor, pulsamos la tecla M (memptr), especificamos la 
dirección $8100 y pulsamos Enter. 
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Si eliminamos el punto de interrupción y pulsamos la tecla N (Run) podremos ver como se 
actualizan tanto la posición de memoria $4000 como la $8100. 


Con esto ya deberíais ser capaces de depurar vuestros programas, aunque ZEsarUX nos proporciona 
mucha más potencia, pero queda de vuestra cuenta descubrirla, aunque vamos a comentar una 
última opción: añadir o modificar código directamente en el depurador. 


En la primera línea de opciones de la parte inferior, si pulsamos sobre la tecla S (stM) se nos 
muestran otras opciones. Si pulsamos sobre la tecla A (assemble) se nos permite modificar la 
instrucción situada en la dirección de memoria seleccionada. Para salir de la ventana Assemble 
pulsamos la tecla Esc. 
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En nuestro caso, vamos a cambiar la dirección de la VideoRAM en la que estamos cargando el valor 
de A, lo vamos a poner en la columna diez. Si bien ZEsarUX no es sensible a mayúsculas y 
minúsculas, es muy importante que el sufijo de número hexadecimal sea la H mayúscula. 


Tal y como podemos ver en la imagen, el valor de A se está pintando ahora en la columna diez. 


Conclusión 


En este capítulo hemos personalizado ZEsarUX y adquirido los conocimientos necesarios para 
depurar nuestro programas, aunque ZEsarUX es muy potente y nos queda mucho por descubrir. 


Espero que este tutorial os haya servido para avanzar en vuestro aprendizaje de Ensamblador para 
ZX Spectrum. 
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